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© Apparatus and process for reagent fluid dispensing and printing. 



© A system for printing and dispensing chemical reagents in precisely controlled volumes onto a medium at a 
precisely controlled location. A jetting tube, comprising an orifice 8t one end and a fluid receiving aperture at the 
other end, is concentrically mounted within a cylindrical piezo-electric transducer. The fluid receiving aperture is 
connected to a reservoir containing a selected reagent by means of a fitter. The reservoir is pressurized by a 
regulated air supply. An electrical signal of short duration is applied to the transducer. The pulse causes the 
^transducer and the volume defined by the jetting tube to expand, thereby drawing in a small quantity of reagent 
^ fluid. The cessation of the pulse causes the transducer and the volume of the jetting tube to de-expand, thereby 
causing at least a substantially uniformly sized droplet of reagent fluid to be propelled through the orifice. The 
droplet may be directed to impact a printing medium or collected in a dispensing recepticle. 
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APPARATUS AND PROCESS FOR REAGENT FLUID DtSPENSIlSd ANbVfctNTWG 



BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process tor dispensing and printing reagent fluids. 
6 Wherein a transducer is used to propel small quantities of the fluid towards a positioned target 

Diagnostic assays often require systems for metering, dispensing and printing reagent fluids. In the 
case of metering and dispensing, such systems comprise both manual and automatic means. For purposes 
of practicality, the present background discussion will focus on the methods of metering and dispensing 100 
micro-liter volumes or less. 

to The manual systems of metering and dispensing IncJude the glass capillary pipet; the micro-pipet; the 
precision syringe: and weighing Instruments, The glass capillary pipet is formed from a precision bore glass 
capillary tube. The pipet typically comprises 8 fire blown bulb and a tubular portion fire drawn to a fine 
point Fluid is precisely metered by aspirating liquid through the tube into the bulb to a predetermined level 
indicated by an etched mark. The fluid may then be dispensed by blowing air through the tube. 

is The micro-pipet typically comprises a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a threaded stop. The distance the piston travels within the cylinder and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ao 

20 curately positioned metering marks. The fluid is introduced into and dispensed from the syringe by 
movement of the plunger between the marks. 

Weighing techniques for dispensing fluids often simply involve weighing a quantity of fluid. The density 
of the fluid may then be used to determine the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision syringe pump; the 

is peristaltic pump; and the high performance liquid chromatography <HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground piston located within a precision bore cylinder. The 
piston is moved within the cylinder In precise increments by a stepping motor. 

The peristaltic pump comprises an elastomeric tube which is sequentially pinched by a series of rollers. 
Often the tube is placed inside a semi-circular channel and the rollers mounted on the outer edge of a disc 

ao driven by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 
of the fluid. 

The HPtC metenng valve comprises a defined length of precision inner diameter tubing. The fluid is 

Introduced into the define volume of the tubing with the valve in a first position and then dispensed from the 

tubing when the valve is placed in a second position. 
35 All of the above metering and dispensing systems have the disadvantage that the volumes dispensed 

are relatively large. Furthermore, these systems are also relatively slow, inefficient and comprise precision 

fitted components which are particularly susceptible to wear. 

The printing of reagent fluids is frequently required in the manufacture of chemical assay test strips. 

Selected reagents are printed in a desired configuration on strips of filter paper. The strips may then be 
40 used as a disposable diagnostic tool to determine the presence or absence of a variety of chemical 

components. 

•Generally, to perform a chemical assay with a test stnp, the strip is exposed to a fluid or a series of 
fluids to be tested, such as blood, serum or urine. In some instances, the strip is nnsed and processed with 
additional reagents pnor to being interpreted. The precise interpretation depends on the type of chemical 
4$ reactions involved, but it may be as simple as visually inspecting the test strip for a particular color change. 

The manufacture of test strips generally involves either a manufacturing process or a blotting process. 
The blotting process is the simplest manufacturing method and permits most reagents to be applied without 
modification. A disadvantage of tnis process is that H is difficult to blot the fluids onto the test stnp with 
precision. 

so The printing process will often involve any of three well known methods: silk screening: gravure: and 
transfer printing. The silk screening of reagents generally involves producing a screen by photograohic 
methods in the desired configuration for each reagent to be printed. The screen is exposed under light to a 
preselected pattern and then developed. The areas of the screen which are not exposed to light, when 
devel oped, become porous. However, the areas of the screen which have been exposed to light remain 
relatively nonporous. The screen is then secured in a frame and the test strip placed below. The desired 
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reagent fluid. Specialty prepared to have a high viscesity, w spread ove/ «the tpp $ide of the screen. The 
reagent passes through the porous areas of the screen and onto the test strip. The test strip is then 
subjected to a drying process, specific to each reagent Once the test strip is dry, it may be printed again 
.using a different screen, pattern and reagent 

5 The gravure method of printing reagents comprises coating a metaJ surface with a light sensitive 
polymer. The polymer is exposed to fight in the desired predetermined pattern. When developed, the 
polymer creates hydrophilic and hydrophobic regions. The reagent is speciaJly prepared such that when 
applied to the metal It will adhere only to the hydrophilic regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from the metal to the test 

10 strip. 

The transfer printing method comprises transferring the reagents from a die to the test strip in the 
desired pattern. The die is made with the appropriate pattern on Hs surface and then coated with the 
desired, specially prepared reagent A rubber stamp mechanism is pressed against the die to transfer the 
reagent in the desired pattern from the die to the rubber stamp. The rubber stamp is then pressed against 

ts the test strip to transfer the reagent, in the same pattern, to the test strip. 

Each of the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requirement that the reagents must be specially prepared. Additionally, if a 
variety of reagents are to be printed onto a single test strip, the strip must be carefully aligned prior to each 
printing. This alignment procedure increases the cost and decreases the throughput of the printing process. 

zo Moreover, a special die or screen must be produced for each pattern to be printed. A further disadvantage 
arises In that the above printing methods are unable to place reproduceable minute quantities of reagent on 
the test strip. 

It is an object of the present invention to provide a printing and dispensing method and apparatus which 
avoids these disadvantages. 

25 



SUMMARY OF THE PRESENT INVENTION 

The present invention is directed to a reagent dispensing and printing apparatus and method, wherein 
ao the apparatus comprises a transducer operative to eject a substantially uniform quantity of reagent in a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
* jetting tube is concentrically located with a piezoelectric transducer. The jetting tube comprises an orifice at 
one end and a reagent receiving aperture at the other end. The receiving end of the jetting tube is 
35 connected to a filter which is in turn connected to a reservoir containing a selected reagent. A jetting control 
unit supplies an electrical pulse of short duration to the transducer in response to a command issued by a 
computer. The electrical pulse causes the volume defined by the jetting tube to expand by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At the end of the pulse duration, the 
transducer de-expands propelling a small quantity of the reagent fluid through the orifice and into a fluid 
40 recepticle. If desired, additional droplets may be deposited in the recepticle or the recepticle aligned with an 
additional jetting tube for receiving an additional reagent fluid. 

An additional preferred embodiment of the present invention may be used for printing reagent fluids 
onto a print medium. In this embodiment the jetting tube is aligned with the printing medium such that the 
propelled droplet impacts a precise position on the medium. The jetting tube or print medium may then be 
45 repositioned and another droplet expelled from the jetting tube. The process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of the present invention is that precise minute quantities of reagent fluid may be 
dispensed or printed in a reproducible manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosities and surface tensions. The reagents 
60 do not in general have to be specially adapted for use with the present invention. 

The invention itself, together with further objects and attendant advantages, will best be understood by 
reference to the following detailed description, taken in conjunction with the accompanying drawings. 



55 



3 



0 2$p m Z2Z 



BRIEF DESCRIPTION OF THE»PFUVW1N6S 



RGURE 1 Is a schematic representation of a first preferred embodiment of the present invention 
showing the use of multiple jetting heads to meter and dispense reagent fluid. 
6 RGURE 2a is a perspective view of a first preferred embodiment of the jetting head of the present 

invention. 

FIGURE 2b Is a cut-away perspective view of the preferred embodiment of Fig. 2a taken along lines 
. 2b-2b with the contact pins removed. 

RGURE 2c is a sectional representation of the preferred embodiment of Rg. 2a taken along lines 2c- 

70 2c. 

FIGURE 2d is a sectional representation of the prefened embodiment of Rg. 2c taken along lines 2d- 

2d. 

FIGURE 2e is a sectional representation of the jetting tube and transducer of the preferred 
embodiment of Rg. 2b taken along lines 2e-2e. 
15 RGURE 3 is a schematic representation of a second preferred embodiment operating in the drop on 

demand mode as a reagent printing system. 

RGURE 4 is a schematic representation of a third prefened embodiment operating in the continuous 
mode as a reagent printing system. 

RGURE 5a is a schematic representation of a portion of the jetting head control unit showing the 
20 LED strobe circuit 

RGURE 5b is a schematic representation of a portion of the jetting head control unit showing the 
high voltage power supply circutL 

FIGURE 5c is a schematic representation of a portion of the jetting head control unit showing the 
print control circuit 

25 RGURE 5d Is a schematic representation of a portion of the jetting head control unit showing a 

portion of the print pulse generator. 

RGURE 5e is a schematic representation of a portion of the jetting head control unit showing an 
additionaJ portion of the pulse generator. 

RGURE 6a is a perspective view of a second preferred embodiment of the jetting head of the 
30 present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Rg. 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of the 
present invention. 

FIGURE 8 is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 
35 head of the present invention. 

FIGURE 9 is a graph of the drop mass of the emitted droplets as a function of emission frequency to; 
several fluid viscosities. 

FIGURE 10 is a graph of the velocity of the emitted droplets as a function of frequency for several 
fluid. viscosities. 

40 RGURE 11 is a graph of the total weight of fluid emitted as a function of the number of emitted 

droplets for a given fluid. 



DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIMENTS 

45 

Turning now to the drawings. Rg. 1 shows a schematic representation of a first preferred c*nooo«ment 
of a reagent dispensing system generally represented as reference numeral 30. The dispensing system 30 
comprises a plurality of reagent fluid reservoirs 200, a plurality of filters 300. a plurality of reagent |ettmg 
heads 400. a plurality of jetting head control units 500, an interface unit 600, a computer 700, transportation 
so unit 902. a plurality of fluid mixing cells 904 and a detection station 906. 

The reservoir 200 holds a selected auantity of reagent fluid for dispensing. The reservoir 200 is 
maintained at atmospheric pressure by suitaole means such as an atmospheric vent. The reagent fluid is 
transferred from the reservoir 200 through the filter 300 to the reagent jetting head 400. The filter 300 is 
placed between the reservoir 200 and tne jetting head 400 to ensure that any particular foreign matter in the 
55 reagent fluid is trapped before entenng the jetting nead 400. 

The plurality of jetting heads 400 and tne detection station 906 define a processing path. Each jetting 
head 400. which is described in detail below, ejects uniformly sized oroplets 2 of reagent fluid. Tne droplets 
2 are propelled, with controlled velocity and direction, towards a selecting mixing cell 904 positioned along 
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the processing >ath b? the traA^ortatiort unh 902. The mbfirfg cells 904 «re eomprised of non-reactive 
material end function as minute holding tanks for the dispensed reagent fluid. 

The plurality of jetting heads 400, shown in Fig. 1. ere positioned sequentially along the processing 
path. Alternately, some or all of the plurality of jetting heads 400 may be positioned with respect to the 
5 transportation unit 902 such that the heads 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled by the computer 700. The 
computer 700 issues commands to an interface unit 600 which Is electrically connected to the transportation 
unit 902 and to the jetting head control unit 500, The interface unH 600 is of conventional design and is 
jo used to control the transfer of information between the computer 700 and the jetting control unit 500. The 
interface unit 600 Is also used to control the transfer of information between the computer 700 and the 
transportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 

numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402, 404. The housing 402. 
75 404. when assembled, is adapted to form an orifice aperture 406. an air vent and reagent supply channel 

410 and a transducer chamber 403. shown in Fig. 4b. Four screws 408. adapted to respective housing 

screw apertures 416, hold the housing 402, 404 in an assembled configuration. 

The jetting head 400 further comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 

fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
20 aperture 431 at the other end for expelling and receiving fluid, respectively. The piezo-electric transducer 

434 is cylindrical^ shaped and secured concentrically about the mid-region of the jetting tube 432 with 

epoxy or other suitable means. 

The piezo-electric transducer 434, shown in Fig. 2e, defines a first and second end and comprises a 

section of cylindrically shaped piezeo-electric material 435. An inner nickel electrode 437 covers the inner 
25 surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 

distance to enable electrical connection external to the cylinder 435. 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The second 

electrode is electrically isolated from the first electrode 437 by an air gap at the face of the second end of 

the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
30 electrical pulse is applied to the first and second electrodes 437, 436 a voltage potential is developed 

radially across the transducer material 435. The voltage potential causes the radial dimensions of the 

transducer 435 to change, which causes the volume defined by the transducer 434 to also change. 

The jetting tube 432 is positioned in the transducer chamber 403 such that the receiving end 431 

extends beyond the rearward end of the transducer 434. The receiving end 431 of the jetting tube 432 is 
35 inserted into one end of a reagent supply tube 430. The supply tube 430 is sealingly held to the jetting tube 

432 by concentric teeth 412 formed by the housing sections 402. 404. The teeth 412 not only seal the 

supply tube 430 to the jetting tube 432, but. also, seal the supply tube 430 to the housing 402, 404. 

The second end of the supply type 430 passes through the channel 410 and Into a reagent reservoir 

200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400. As the reagent 
40 fluid is dispensed, air is supplied to the reservoir 200 through the channel 410 to prevent the creation of a 

vacuum in the reservoir 200. The reservoir 200 is releasably attached to the housing 402. 404 and held in 

place by frictional forces. A reservoir cap 202 is flexibly attached to the reservoir 200 and adapted such that 

the cap 202 may be used to secure the opening in the reservoir 200 when the reservoir 200 is disengaged 

from the housing 402, 404. 

45 The position of the jetting tube 432 defines the horizontal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are held in a pre-defined vertical relationship with respect to the housing 402, 
404 by means of two upper vertical alignment pins 418 and two lower vertical alignment pins 418. The two 
upper vertical alignment pins 418 extend horizontally from the housing section 402 into the transducer 
chamber 403. Similarly, the two lower vertical alignment pins 418 extend horizontally from the housing 

so section 404 into the transducer chamber 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402. 404. 

The jetting tube 432 and the transducer 434 are held in a predefined horizontal relationship with respect 
to the housing 402, 404 by means of four horizontal alignment pins 424. Two of the horizontal alignment 
pins - 424 extend horizontally from the housing section 402 approximately midway into the transducer 

55 chamber 403. Similarly, two of the horizontal alignment pins 424 extend horizontally from the housing 
section 404 approximately midway into the transducing chamber 403. Each horizontal alignment pin 424 is 
formed integrally with the respective housing section 402. 404. The alignment pins 418. 424. sealing teeth 
412 and orifice aperture 406 are aligned and adapted to hold the jetting tube 432 and transducer 434 such 
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that the orifice £33 of tne jetting «Mbe 432 extends Intone orifice aperture 4D6.* - * „ * 

An electrical transducer activation pulse is supplied to the piezo-electric transducer 434 from the jetting 
head control unit 500 by means of two contact pins 422- A quantity of fluid will be dispensed from the 
jetting tube for each BppHed activation pulse. The activation pulse can be produced by a variety of 

6 conventional circuits or commercially available units. Therefore a detailed description, of such a circuit will 
not be provided. However, a circuit for producing a series of activation pulses is provided in the description 
of the printing embodiment below. Due to the dif fering constraints involved in dispensing and printing, the 
circuit in the printing embodiment is not required to produce only a single pulse. However, one skilled in the 
art could, If desired, modify the circuit to produce a single pulse on demand for use in the dispensing 

io embodiment 

Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437, 436 located on the outer surface of the transducer 434. Two contact pin holders 
414, integral with the housing 402, 404. are positioned to hold the respective contact pins 422 under the pin 
heads 423 such that each pin head 423 electrically engages the appropriate electrode 437, 436 of the 

15 transducer 434. Two contact pin engaging posts 420 extend from the housing 402, 404 opposite the contact 
pin holders 414 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite the pin heads 423 extend through the housing 402, 404 by means of contact 
pin apertures 421. Since the housing sections 402, 404 are formed symmetrically to one another, the 
contact pins 422 may be optionally attached above the transducer 434. 

20 In operation, the reservoir 200 containing reagent fluid is fastened to the jetting head 400 such that the 
fluid supply tube 430 extends into the reagent fluid. The filter 300 may be fitted to the free end of the 
supply tube 430 or positioned inside the reservoir 200. Air is supplied through the channel 410 around the 
supply tube 430 to prevent the reservoir 200 from falling below atmospheric pressure. The air is prevented 
from entering around the supply tube 430 and into the transducer chamber 403 by the seal created 

25 between the sealing teeth 412 and the supply tube 430. The jetting tube 432 may be primed by slightly 
pressurizing the reservoir 200 to cause the reagent fluid to travel through the supply tube 430 and into the 
jetting tube 432. Once primed, the fluid is prevented from substantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation pulse is conducted to the contact pins 422 of the jetting head 400. The 

so contact pins 422 communicate the high voltage pulse to the electrodes 437, 436 of the transducer 434 with 
polarity such that the concentrically mounted transducer 434 expands. The rate of expansion is controlled 
by the rise time of the high voltage pulse which is preset to generate a rapid expansion. The expansion of 
the transducer 434 causes the jetting tube 432. which is epoxied to the transducer 434, to also expand. The 
expansion of the tube 432 generates an acoustic expansion wave interior to the tube 432 which travels 

3$ axially towards the orifice 433 and .towards the fluid receiving aperture 431 . When the expansion wave 
reaches the orifice 433. the reagent fluid is partially drawn inwardly. However, the surface tension of the 
fluid acts to inhibit substantial inward fluid movement. 

When the expansion wave reaches the end 431 of the tube 432. the expansion wave is reflected and 
becomes a compression wave which travels towards the center of the piezo-electric tube 434. The high 

40 voltage pulse width is adapted such that when the reflected compression wave is beneath the piezo-electric 
tube 434, the high voltage pulse falls, resulting in a de-expansion of the transducer 434 and the jetting tube 
432. This action adds to the existing acoustic compression wave in the interior of the jetting tube 432. The 
enhanced compression wave travels toward the ori fice causing reagent fluid to be- dispensed from the tube 
432. The fluid is propelled from the orifice 433 as a small droplet 2 and deposited in the selected mixing 

45 cell 904 positioned by the transoortation unit 902. One droplet 2 is dispensed for each transducer activation 
pulse. This mode of dispensing is referred to as the drop on demand mode. 

In some instances, the droplet 2 may be accompanied by at least one smaller satelite droplet. However, 
even *rf satelite droplets are present, the volume and velocity of the reagent droplets 2 are highly 
reproduce able. This reproduceability allows for precise dispensing of uniform, controllably sized droplets 2 

so of reagent fluid into the mixing cell 904. 

The droplets 2 of reagents impact tne mixing cell 904 with sufficient force and volume to cause flutdic 
mixing of the reagents. Once the desired amounts of tne selected reagents are deposited in the selected 
mixing cell 904. mixing cell 904 is transported to the detection station 906 where the mixed reagents may 
be extracted for use or analyzed for assay results. 

55 The dispensing system 30 provides numerous advantages based upon the ability of the reagent jetting 
head 400 to rapidly and reproduceably eject uniform quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent upon the volume of tne reagents used. The ability of the 
dispensing system 30 to dispense such minute amounts of reagents thereby reduces the processing time 
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of certain chernical assays. Furthermore* some cheyrycaJ assays require^ | wio^rarf&e of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the ores ent invention overcomes this 
disadvantage. 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as fitter paper to produce an assay test strip. A printing system 10 
using the present Invention is represented in Fig. 3. Structure similar in form and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200. a filter 300, a reagent jetting head 400, a Jetting head control unit 500, an 
io interface 600, a computer 700. end an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of the 
plotter 800 will not be described in detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unit 600. The plotter 800 processes the 
T5 commands and produces control signals to drive an x-axis motor {not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor Is used to position a 
drum (not shown) to which the printing target 1 is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is applied to the control unit 500 and 
indicates that the plotter 800 Is ready to begin a printing operation. 
20 The control unit 500 also receives control signals from, the interface unit 600, These signals include 
signals HIGHER*, LOWER* to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500: end a series of print signals PRT. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200. 300 are initialized and operate substantially as 
26 described above. The jetting head control unit 500. shown in Ftgs. 5a - 5e comprises a print control circuit 
510, a pulse generator 530. a high voltage supply 540. and a strobe pulse generator 560. The control unit 
500 also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or described in detail. 

The print control circuit 510 receives the pen down signal PENDN from the plotter 800 and comprises 8 
30 transistor Q100. a one-shot circuit U100. two NAND-gates U101, U102. a line decoder multiplexer U107 and 
four inverters U103-U106. The pen down signal PENDN is applied to the base of the transistor Q100 by 
resistors R100, R101 and diode D100. The emitter of transistor Q100 is tied to ground and the collector is 
connected to the +5 vort supply by resistor R102. 

The one-shot U100 comprises inputs A, B and an output Q. The B input of the one-shot U100 is 
35 connected to the collector of the transistor O100 and the A input Is tied to ground. The time period of me 
pulse produced by the one-shot U100 is determined by a resistor R104. a variable resistor R105 and a 
. capacitor C100. The output Q of the one-shot U100 is combined with the collector output of the transistor 
Q10O by the NAND-gate U101 and then inverted by the NAND-gate U102. The circuit is operative to 
produce an adjustable delay in the application of the pen down signal PENDN to the control unit 500. 
40 The line decoder U107 is circuited to function as a 3 input AND-gate. The output of the NAND-gate 
U102 is applied to the first input of the decoder U107; the print signal line PRT comprising a series of 
pulses from the interface unit 600 is applied to the second input; and a jetting head ON/OFF signal from 
switch S1 is applied to the third input. The inverter U106 inverts the output of the line decoder U107 to 
generate the print control signal PRT and the inverters U103-U105 Invert the control signals LOWER*. 
<5 HIGHER*, and RST signals, respectively. 

The high voltage supply 540. shown in Ftg. 5b, provides +175 volts DC to produce a maximum pulse 
of +150 volts peak to peak at the reagent jetting head 400. The high voltage supply 540 comprises 
differential amplifier U12 and transistors 01, 02, Q13. Q14. A stable reference voltage of -2.5 volts DC is 
produced at the junction of a reservoir R13. connected to the -15 vott supply, and a diode CR6. connected 
so to ground. The reference voltage is combined with a resistor R14 to produce an adjustable, stable voltage 
reference for the amplifer U12. The reference voltage is applied to the inverting input of the amplifier U12 
through a resistor R11. The noninverting input of the amplifier U12 is connected to ground by a resistor 
R12. The amplifier U12. in combination with a feedback resistor R10, produces an output signal proportional 
to the difference of the voltage reference signal and the ground potential. 
55 The output of the amplifier U12 is applied to the base of the transistor Q2 whose collector is connected 

to the +15 volt supply. The signal produced at the emitter of the transistor Q2 is applied to the base of the 
transistor Ql through resistors R8. R6. R5. a transformer L1 and diodes CR4. CR2. CRl. The emitter of the 
transistor Q1 is connected to ground and the collector is connected to the +15 voltage supply through the 
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transformer L1. # A diode CR3 ctfrmects the collector pt,tneTraiisfstor Q1 to fr» junction of the resistor R5 
and the diode CR4. The transistor Q1 is biased for proper operation by resistors* ftf, R6. R5. The resistor 
R7 and a capacitor C22 connect the junction of the resistor R8. R6 to the +15 voltage supply. 

The transistor Q1 and the transformer L1 form a "flyback" blocking oscillator. Any increase In current 
supplied by the transistor 01 produces an increase in energy transferred through the secondary winding of 
the transformer LI and diode CR5. Therefore, an increase in current supplied by the transistor Q1 results in 
an increase in power available to the high voltage output The diodes CR1-CR4 form a "Baker clamp" which 
prevents transistor Ql from saturating. The clamp thereby avoids transistor storage time. 

The diode CR5 Is connected to a multiple pi filter formed by the inductors L3. L2, capacitors C24, C21, 
C41 and resistors R29. The multiple pi filter attenuates ripple and switching spikes In the signal supplied to 
the transistor Q13 which produces the high voltage output V+ +. A resistor R64 connects the base of the 
transistor 013 to the emitter and to the resistor U29. The base is also connected to the collector of the 
transistor Q14 by a resistor R65. The base of the transistor Q14 is connected to the +15 volt supply by a 
resistor R67 and to ground by a resistor R56. The emitter of the transistor 013 provides a signal HV 
SENSE which is fed back to the inverting input of the amplifier U12 through a resistor R9. The high vortage 
output V+ ♦ is produced at the collector of the transistor Q13. The proper biasing of the transistor Q13 is 
provided by resistor R84 and the biasing circuit comprising the transistor Q14, resistors R57 f R66. R65. 

The pulse generator 530, shown in Figs. 5d, 5e, comprises an opto-isolator U18, a one-shot U23, a 
digital to analog (D/A) converter U30 and two binary counters U24. U25. The pulse generator 530 accepts 
control signals PRT, LOWER*. HIGHER", RST and produces the activation pulse which is applied to the 
transducer 434. In normal operation, the PRT* control signal is supplied to the opto-isolator U18 by a jumper 
JMP between contact points E5. E6. The opto-isolator U18 is of conventional design and comprises a light 
emitting diode (LED) circuit and a photo-element circuit A resistor R15 operates as the load resistor for the 
LED circuit of the isolator and a capacitor C25 suppresses transient noise on the voltage suDDly to the 
isolator U18. The output of the isolator U18 is applied to one input of the one-shot U23 whose time constant 
is adjustably determined by resistors R38. R25 and a capacitor C30. The pulse from the non-inverting 
output of the one-shot U23 Is fed to the base of a transistor 09. A resistor R39 sets the approximate base 
. current of the transistor Q9 which is used as a level shifter for converting the CMOS signal level to the +15 
volt DC signal level. 

The control of the rise and tall rates of the pulse generator 530 is accomplished by directing a pair of 
current source transistors 011, Q12 to charge and discharge a capacitor C57. The transistor Q11 is 
operative as a source Of current and the transistor 012 Is operative as a sink for current A transistor Q10 
controls the level of the current by applying an appropriate bias current through a resistor R56 to the base 
of the transistor Q11. The biasing of the transistors Q11. 012 Is critical to the proper rise and fall rates. 
Therefore precision voltage references CR13, CR15 are used to provide respective bias reference voltages. 
A temperature compensation network is formed from zener diodes CRM, CR16 and resistors R55. R54 to 
maintain stable operation of the transistors 011, Q12, respectively. The variable resistors R49. R52 may be 
used to adjust the fall time and rise time, respectively, of the output pulse applied to the reagent jetting 
head 400. A plurality of resistors R45. R46, R47. R48. R49, R51. R52. R53, R56. R57, R58 are used to 
properly bias the transistor Q10, Q11, Q12 and capacitors C55. C60 are circuited to maintain stability of the 
circuit 

The impedance of the output stage of the rise and fall circuitry 01 0, 011, Q12 is very high. With such a 
high impedance, circuit elements attached to the capacitor C57 could affect the linearity of the rise and fall 
time constants. Therefore, an FET input operational amplifier U32 is used as an impedance interface. The 
amplifier U32 is configured in the nomnverting mode and circuited with capacitors C58, C59 for stability. 

The output of the~amplifier U32 is applied to an inverting amplifier U31 by means of a resistor R62. The 
amplifier U31 inverts and conditions the pulse control signal with the aid of resistors R59, R60. Resistors 
R61, R53, connected to the -15 voltage supply, provide a means for adjusting the DC level offset of the 
amplifier U31 output signal. Capacitors C51 , C52 are connected to enhance the performance and stability of 
the circuit 

The output of the amplifier U31 is applied Oy means of a resistor R41 to the positive voltage reference 
signal input RER + ) of the D«A converter U30. The negative voltage reference signal input REF(-) is tied to 
ground by a resistor R40. The D/A converter U30 produces output signals I0UT. 10UT" which are 
proportional to the difference between the positive and nega tive voltage reference signal inputs REF( * ). 
REF(-). Capacitors C48. C49. C50 are connected to the D A converter U30 to enhance staoility. 

The D/A converter outputs I0UT. I0UT are also proportional to an 8-bit binary value applied to inputs 
B1-B8. The binary value is supplied by the counters U24. U25 which are controlled by the function signals 
LOWER". HIGHER" and RST. The LOWER* signal and the HIGHER" signals are applied to the count up and 
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count down Inputs CU. CD of the'cbunter U24 by means of opto>tsol8tors LU2. UP^Ibe cany and borrow 
outputs CY. BR of the counter U24 are connected with the count up and count down inputs CU, CD of the 
counter U25. The reset inputs RST of both counters U24, U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16. R17. R18 are used as load resistors for the LED circuits of the isolators U19. 
U20. U21 and capacitors C26, C27. C28 are used to enhance the stability of the isolator circuits. 

The counters U24, U25 may optionally be preloaded to the selected 8-bit binary value through input 
lines TP0-TP7. The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24, U25 by pulling the respective 
inputs TP0-TP7 low and applying an external, active low, load signal EXT LOAD to pin TPS. The load signal 
pin TP8 Is connected to the load inputs LOAD of the counters U24, U25 and conditioned by a dipping 
circuit comprised of diodes CR9, CR10 and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs 10UT, IOLTT are connected to the inverting and noninverting 
inputs of a differential amplifier U29. The output of the amplifier U29 is fed back to the invert ing input by a 
resistor R50. The amplifier U29 converts the current output of the D/A converter U30 to a voltage output 
Capacitors C56, C47 are provided to enhance circuit stability. 

The output of the amplifier U29 is applied to the noninverting input of the amplifier U28. The output of 
the amplifier U28 is fed back to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting input is also connected to ground by a resistor R36. To enhance the frequency response of the 
amplifier U28. a resistor R43 and a capacitor C54 are connected between the frequency compensation input 
FC and ground. An adjustable DC offset is provided by connecting the output offset inputs OF, OF with a 
variable resistor R42. The wiper of the resistor R42 Is connected to the high voltage power supply output 
V++. 

The output of the amplifier U28 is also connected to the base of a transistor 04 and through diodes 
CR11. CR12 to the base of a transistor Q7. The transistor 04. Q7, 03 and resistors R30-R35 form an output 
circuit capable of driving high capacrtive loads at high slew rates and wide bandwidth. The variable resistor 
R31 may be used to set the maximum current through the bias network R30, R33 by measuring the voltage 
drop across resistor R35. 

The strobe generator 560 produces a strobe pulse and comprises transistors Q101-Q105 and a one- 
shot circuit U108. The strobe intensity is determined by the circuit comprising the transistors Q101-O104 
and resistors R109-R115. The circuit is connected to the anode of the LED 900 and receives two inputs 
from the interface unit 600 to produce four levels of light- intensity in the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and the 
Vansistor Q105. The one-shot U108 comprises inputs A. B and an output Q. The strobe signal STROBE is 
applied to the B input from the interface unit 600. The duration of the one-shot U108 output pulse is 
controlled by the adjustable RC network R107. R108. The output Q is applied to the base of the transistor 
Q105 by resistor R108. The collector of the transistor Q105 is connected to the cathode of the LED 900 to 
draw current through the LED 900. 

The computer 700. control unit 500 and plotter 800 must be initialized. The initialization of the computer 
700 and the plotter 800 will not be discussed since these units are of conventional design end operation. 

To initialize the jetting head control unit 500. the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to the control unit 500 whereupon the counters U24, 
U25 are cleared. The computer 700 then retrieves from its memory, or by conventional operator input, the 
desired digital setting for the D/A converter. This setting may also be calculated from data and may be 
tailored to specific sizes of jetting heads 400 or reagent fluids. The computer 700 then issues a series of 
commands, through the interface unit 600. to increment or decrement the counters U24. U25 to correspond 
to the desired binary setting. If the command directs that the counters are to be raised, then the HIGHER" 
signal is applied through the opto-isolator U20 to the count up CU input of the counter U24. Similarly, If the 
command directs that the counters are to be lowered then the LOWER* signal is applied through the opto- 
isolator U19 to the count down CD input of the counter U24. Since the carry and borrow outputs CY. BR of 
the counter U24 are connected to the count up snd count down inputs CU, CD. respectively, of the counter 
U25, the digital setting applied to the D/A converter U30 may range from 0 to 255. Alternately, the counters 
U24. U25 could be initialized to a desired setting by loading the binary value on the lines TP0-TP7 and 
strobing the EXT LOAD line. 

Once the control unit 500 and the plotter 800 are initialized, the printing cycle may begin. The computer 
700 issues a command to the interface unit 600 to produce the series of PRT signal pulses. The computer 
700 then commands the plotter 800 to print, for example, a line along a selected path. The plotter 800 
positions the jetting head 400 and target 1 and issues the pen down signal PENDN. The signal is delayed 
by the print control circuit 510 to ensure that the target 1 is property positioned. At the expiration of the 
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delay, the signaf Is AN Bed with tho dose<>enable swftcb si ape] <he series joff print pulses PRT. The resutt 
erf the AND operation is the application of the PRT pulses to the poise generator circuit 530. 

The PRT signal Is appOed through the jumper JMP to the opto-isolator U18 and then to the one-shot 
U23. The one-shot U23 produces a pulse signal which is then converted from CMOS signal levels to the 15 

6 volt DC signal level by the transistor 09. The rise and fall circuitry comprising 010, Oil, Q12 converts the 
square wave pulse into a pulse having the rise and fall characteristics preset by the resistors R49, R52. The 
conditioned pulse Is then amplified by the amplifier U32 and applied to the amplifier U31 . 

The amplifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter ' 
U30 and supplies an adjustable DC offset The DC offset is used to counteract possible distortion 

io attributable to the amplifier U31. The distortion arises In that, for the amplifier U31 to be adequately 
responsive, a small degree of current must flow through the resistor R41. This. current creates an offset 
condition at the output of the amplifier U29 which is then scaled by the D/A converter U30 in correspon- 
dence with the binary data. The resistor RB3 allows a small amount of current to be applied to the amplifier 
U31 to control the offset voltage attributable to the current flowing through the resistor R4i. 

75 The D/A converter U30 scales the difference between the inputs REF( + ), REF(-) using the binary data 
supplied to input lines B1«B8 to produce a current output pulse IOUT and a current inverted output pulse 
IOUT. The two outputs IOUT. IOUT are fed to the amplifier U29 which convert the current outputs into a 
single voltage output The scaled, conditioned pulse Is then applied to the output circuit comprising the 
amplifier U28 and the transistors 03. Q4, Q5, Q6, Q7. The circuit produces a high voltage pulse with the 

20 aforementioned rise and fall characteristics to drive the piezo-electric transducer 434. 

The high voltage pulse is applied to the transducer 434 and causes a droplet 2 of fluid to be propelled 
onto the target 1. Since the pen down signal PENDN Is still applied, additional droplets 2 are produced from 
the jetting head 400. The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce the desired printed line. When the printing is complete, the plotter 

25 800 removes the pen down signal PENDN and the droplet emission stops. Of course it should be 
understood that dots, circles and the like could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The size and uniformity of the droplets 2, as well as the presence of any satelite droplets, may be 
observed wtth the aid of the scope 950 and the LED 900. The scope 950 and the LED 900 are positioned 
30 such that the droplets 2 pass between the scope 950 and trie LED 900 and within the focal range of the 
scope 950. The strobe pulse when applied to the LED 900 causes the LED 900 to momentarily flash. The 
timing of the activation and the width of the pulse may be adjusted such that the flash occurs when the 
fluid, expelled in response to the high voltage pulse, is between the scope 950 and the LED 900. The 
dispensed quantity of fluid may then be observed in flight or at or near the momement of separation from 
35 the orifice 433. Corrections based on tne observation may then be made to the system 10. . 

* Since each droplet 2 is small in volume, the droplet 2 may be rapidly absorbed oy the target 1 . thereby 
. allowing rapid and precise placement of a variety of reagents on the target 1 with reduced drying time and 
reduced potential of fluidity mixing. In addition, the ability to place small droplets 2 in a precise manner 
enables the target 1 to be printed in a high density matrix with a variety of reagents as isolated matrix 
40 elements. 

In some printing applications, particularly when printing fluids of flow viscosity and surface tension, it 
may be desirable to force the fluid through the jetting tube 432 under pressure ano allow the vibrations 
produced by the transducer 434 to break the emitted fluid stream into precise droplets 2 Under this mode 
of printing, the emission of droplets 2 can not be stooped by cessation of the tranducers activalion Dutse It 

45 is therefore necessary to prevent fluid emission by other means. One preferred means of momemanly 
stopping emission of the droplets is shown schem atically in Fig. 4. In this arrangement, structure simua- to 
structure represented in Fig. 3 in form and function, is represented by like reference numerals. 

The arrangement, generally represented by the numeral 20, includes a closed reagent recirculation 
system comprising a normally close three way valve 970. a sump 960 and a recirculation pump 980. In the 

so continuous mode, the reagent fluid is forced out the orifice 433 by hydraulic pressure and broxen into a 
series of substantially uniform droplets 2 by movement of the transducer 434. A regulated, filtered air 
supply 100 is used to pressurize the reagent fluid reservoir 200. The reagent fluid within tne reservoir 200 
may optionally be agitated by a magnetic stirer unit 990. This is especially useful for reagent fluids 
comprising suspended particles. 

55 The three-way valve 970 comprises a common channel, a normally open channel and a normally closed 
channel. The fluid is forced through the filter 300 and applied to the normally closed channel of the valve 
970. When the normally closed channel is closed, the normally open channel of the valve 970 functions as 
a vent for the reagent jetting head 400. The common channel is connected to the reagent supply tube 430 
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of the Jetting hetfti 400. -The reagesrt supply tube 430*ig §l$b cqpg^tted to the^semp 960* 

In operation, the normally closed channel is opened by an appropriate signal supplied by the computer 
700 which also closes the normally open channel. When the normally dosed channel Is opened, fluid is 
permitted to pass to the sump 960 and to the Jetting head 400. The sump 960 collects the reagent fluid not 

6 transferred to the jetting head 400. The sump 960 supplies the collected fluid to the inlet side ol the 
recirculating pump 980 which returns the fluid to the reservoir 200. The returned fluid is then mixed wtth the 
contents of the reservoir 200 and is available for recirculation. 

When operating in the continuous mode, rather than interrupt the continuous stream of print pulses to 
the Jetting head 400, the printing may be momentarily stopped by closing the normally closed channel of 

10 the valve 970. The dosing of the normally closed channel stops the flow of reagent fluid to the Jetting head 
400 and allows the Jetting head 400 to vent to atmospheric pressure. Wrth the fluid supply blocked, the 
transducer 434 is unable to expel further droplets Z Thus/if positioning of the target 1 by the plotter 800 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may close the 
normally closed channel of the valve 970. The plotter 800 may then position the target 1 or position a new 

is target 1 as desired. 

When printing, the active ingredient of the reagent is tailored to achieve a desired concentration per unit 
area on the target 1. However, to a certain extent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1 . The preferred embodiment is particularly well 
suited to this application due to Its ability to print precise, discrete pels of reagent 
20 A second preferred embodiment of the Jetting head Is illustrated in Figs. 6a«6b and is generally 
represented as 400'. The Jetting head 400' comprises housing formed into three sections 40V, 402'. 403*. 
The housing section 403' comprises a recessed region which forms the reagent fluid reservoir 200' when 
the housing section 403' is positioned against housing section 402*. 

The jetting head 400/ further comprises a piezo-electric transducer 434' and a reagent jetting tube 432* 
25 similar to those of the first embodiment The jetting head 400' and the transducer 434' 8re most clearly 
shown in Fig. 6b. The jetting tube 432* defines an orifice 433' at one end and a reagent fluid receiving 
aperture 43V at the other end. The transducer 434' is mounted to the jetting tube 43? concentrically about 
the mid-region of the tube 432' with epoxy. 

The transducer 434' and the jetting tube 432' are positioned in channels 420', 418'. 416' located in the 
30 housing sections 402\ 40V. The channel 416* comprises a plurality of sealing teeth 412' operative to 
engage and seal against the fluid receiving end 43V of the jetting tube 432\ The channel 416* is connected 
to the reagent fluid supply channel 430/. The supply channel 430* is connected with the fluid reservoir 200* 
by means of an aperture 43V through the housing section 402*. shown in Fig. 6b. 

The reservoir 200' comprises a flexible reservoir lining 20V adapted to contain the reagent fluid. The 
35 lining 20V comprises one aperture which is connected to the housing 402* to allow the fluid to pass from 
the lining 20V, A vent (not shown), located in the housing 403*. allows the space between the reservoir 200' 
and the lining 20V to be vented or pressurized. A filter 300' is positioned within the aperture 202* to trap 
unwanted particulate foreign matter. 

Electrical pulses are supolted to the transducer 434' by means of two contact pins 422*. The pins 422* 
40 are inserted through respective apertures 419' of . the housing section 402* and respective apertures 42V of 
the housing section 403*. Two thin electrically conductive strips 410*. 41V, shown in Fig. 6b. are used to 
connect the transducer 434' with the contact pins 422*. A protective shield 405* extends from the housing 
position 403' to partially isolate the protruding portions of the contact pins 422*. 

The function and operation of the jetting head 400' is similar to that of the jetting head 400 and 
45 therefore will not be discussed in detail. The collapsible inner lining 201' of the reservoir 200 allows the 
jetting tube 432* to be primed by pressurizing the reservoir 200* through the vent 205'. Once primed, the 
jetting head 400* may be used as described above in reference to the jetting head 400. 

The jetting head 400' provides en advantage in that the entire fluidic system is contained in one 
housing. Such containment allows for fast and efficient replacement of the jetting heads without fluid 
so contamination problems. 

A third preferred embodiment of the jetting head is shown in Fig. 7 and generally represented as 400". 
The jetting head 400' comprises a housing 403*. a reagent fluid supply tube 406'. a piezo-electric 
transducer 434' and an orifice plate 404*. The housing 403* defines a conically shaped fluid chamber 432'. 
An orifice plate 404". defining an orifice 433", is fastened to the housing 403* such that the orifice 433" is 
55 located at or hear the apex of the conical fluid chamber 432". 

The fluid feed tube 406" is attached to the housing 403' and defines a supply channel 430'. The supply 
channel 430" is in fluid communication with the fluid chamber 432" by means of a connecting channel 431'. 
The base of the fluid chamber 432* is formed by the disc-shaped transducer 434'. The transducer 434* is 
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held In position by a hold down plate 40^\ttached to»tfce hourieg 403*. T>jp,etBcjrical tonnec tions to the 
transducer 434* are of conventional design and are therefore not shown. The housing 403* further 
comprises a threaded aperture 406* for mounting the jetting head 40CT. 

The jetting head 400* operates in a manner similar to the jetting heads described above. However, in 
6 this Jetting head the transducer 434* is normaJiy disk shaped. When the electrical pulse is applied, the 
transducer 434* bends slightly, thereby altering the volume of the conicaJly shaped jetting chamber 432*. 
The change in volume of the chamber 432* causes the expulsion of fluid through the orifice 433* and the 
intake of fluid through the supply channel 430* as described in reference to the jetting head 400. 

A fourth preferred embodiment of the jetting head is shown in Fig. 8 and is generally represented as 
io 400" . The jetting head 400* Is very similar In form and function to the jetting head 400 and will not be 
described In detail. The jetting head 400" comprises two symmetrical housing sections. The sections may 
be connected together by means of apertures 409" and screws, not shown. When assembled, the housing 
sections 404", 402" form a T-shaped supply channel 410* . 

In operation, the jetting head 400* functions in a manner similar to the jetting head 400. The jetting 
75 head 400* is especially suited for use in the continuous mode, but may also be used in the drop on 
demand mode. In the continuous mode, the fluid is circulated continuously through the supply channel 430* 
allowing the jetting tube 432* to withdraw as much fluid as required. 

By way of illustrating and with no limitations intended the following Information is given to further 
illustrate the above described embodiments. The computer 700 is an IBM Corporation Personal Computer 
20 with 640 kbytes of RAM memory. The interface unit 600 is a Burr Brown interface unit model number PC 
20001. The plotter 800 is manufactured by Houston Instrument as model number DMP-40. Communication 
between the plotter 800 and the interface unit 600 is performed through a standard asynchronous serial 
communication port 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 comprises a rise time 
25 of approximately 5 usees, a fall time of approximately 5 usees and a pulse width of approximately 35 usees. 
When the transducer 434 is operated in the drop on demand mode, the voltage potential of the pulse is 60 
volts plus or minus 10 volts and the pulse frequency can be up to 4 khz. When the transducer 434 is 
operated in the continuous mode, the voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse frequency can be up to 1 0 khz. 
oo The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 inches outside 
diameter and .020 inches inside diameter. The tube is drawn to a closed taper in an electric furnace. The 
tapered end is then cut and ground to a desired orffice opening of .002 to .004 inches in diameter. The tube 
is cut to a final length of .945 inches in the case of the dispenser embodiment and uHrasonically cleaned in 
acetone. After being cleaned and dried the large end of the tube is fire polished. If desired, the orifice end 
as of the tube may receive a coating, such as a hydrophobic polymer, to enhance droplet separation from the 
tube. 

The supply tube 430 is formed from .023 inch inside diameter and .38 inch outside diameter 
polyethylene tubing produced by lntramedic Corp. as model number #14 170 11 B. During assembly, one 
end of the tubing is stretched over a warm tapered mandrel. The stretched end of the supply tube 430 is 

40 then Inserted over the large fire polished end of the jetting tube 432. The assembly is then cleaned and 
baked in a circulating air oven at 50'C. for 10 minutes. 

The transducer 434 was purchased from Vemrtron of Cleveland. Ohio as model number PZT-5H. The 
electrodes 437, 436 are compnsed of nickel and are separated from eacn other on the outer surface of the 
transducer by approximately .030 inches. The jetting tube 432 is inserted into the cylindrical piezo-electric 

45 tube 434 and secured with epoxy manufactured by Epoxy Technology of Bellenca. Massachusetts as model 
number 301. The epoxy is apolied at the junction of the tube 432 and transducer 434 with a synnge. The 
epoxy flows along the tube 432 inside the transducer 434 by capillary action. The assembly is then baked 
in a circulating air oven at 65 *C. for one hour to cure the epoxy. 

The contact pins 422 are secured to one of the housing sections 402. 404 with a drop of eooxy. The 

so transducer jetting tube 434 . 432 is placed in the housing such that the orifice end 433 of the tube 432 
protrudes approximately .030 inches from the housing 403. 404. A drop oi silver epoxy is placed between 
each contact pin 422 and the transducer 434 to ensure a secure electrical connection. Epoxy is also applied 
to the junction of the housing 402. 404 and supply tube 430. The other section of the housing 402. 404 is 
then screwed into place. 

55 The periphery of the housing 402, 404 is sealed with a capillary sealer such as cyclohexanone. Epoxy 
is then added around each contact pin 422 and around the orifice end 433. The assembly is then baked in 
a circulating air oven at 65 *C. for one hour. 

The filter 300 is formed from a polyester mesh with 30 urn pores and positioned in a polypropylene 
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housing. The air pressure supplieVto the reservoir 209 during «c©ntinuous panting spejations is regulated at 
approximately 10 to 30 psi. 

The reagents used have the following characteristics: 
Printing (drop on demand mode): 
Fluid viscosity range: 1 • 30 cerrtipoises 
Fluid surface tension: 20-70 dyne/cm 
Printing (continuous mode): 
Ruid viscosity range: up to 50 cerrtipoises 
Fluid surface tension: not measured 
Dispensing (drop on demand mode):. 
Fluid viscosity range: 2-30 centipoises 
Fluid surface tension: 20 - 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 
presented in Figs. 9-11. Fig. 9 is a graph of the mass of a droplet as a function of droplet emission 
frequency for three fluids. The viscosity of the fluids were 1, 5 and 24 certtipoise and the transducer 
excitation pulse width was 35 microseconds. As shown in Fig. 9, the higher fluid viscosity results in a more 
stable operating performance of the jetting head. Fig. 10 is a graph of droplet velocity as a function of 
droplet emission frequency for fluid viscosities of 1 t 5 and 24 centipoise. The log of the total fluid weight as 
a function of the log of the number of droplets emitted is shown in Fig. 1 1 , The fluid used has a viscosity of 
2 centipoise. a surface tension of 20 dynes/cm, and a density of .8 grams/cc. The transducer excitation 
pulse was 80 volts and the excitation frequency was approximately 71 1 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 
tensions. Although in some cases viscosity modifiers, such as glycerol, dextran, glucose, and the like, may 
be added to increase the viscosity, a few reagents are adversely effected by such modifiers. 

Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 
Although droplet emission can be . established at some fundamental frequencies, the droplets dispensed 
may have small satelite droplets which reduce the accuracy for metering 8nd dispensing applications. 
However, even with the satelite drops, sufficient reagent is adequately delivered for most print applications 
without a substantial decrease in print quality. 

Glycerin may be used as a viscosity modifier to improve Jetting reliability and to prevent obstruction of 
the orifice arising from evaporation of the reagent fluid components. Glycerin has been found especially 
beneficial for those reagents containing particulate material. The evaporation of the fluid component results 
in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 
evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycerin is 
expelled from the orifice. 

When operating In the dispensing mode the volume of the droplets can be varied to substantially 
uniformly contain from 100 pico-liters to 1 micro-liter. The droplets can be produced at a rate of 
approximately 1 khz to 8 khz. When operating in the printing mode the size of the pel made by each 
droplet measures approximately .001 -.01 2 inches in diameter. 

A copy of the program used in the computer 700 for a printing operation is attached hereto as Appendix 
A. The values, manufacturer and manufacturing part number of the circuit components of the jetting control 
unit 500 ere substantially as follows: 
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D/\LE Ru079303G 


R15-18, 26-28, 






54, 55, 64 


T" ^» e» 'A ^T^^TTPt* Miffmrjir 1 r 




R62 


RES . « . oxsOHI'J^jW/-.. T 0 .% . r . 


DAX*t RN55D45o2F 


R30,33 


RES . 4 7 OHr;i?V/rvTT 5 ; e C . £ . 




R21 


Ri,S . 4 7 O OhX'i=jW ATT ^ ; 0 w . r . 




R19 


RES . 4 / *xOh4*pjW.-TT5? c w . - . 




R35 


Rr-S ♦ 510Oru , 5ij><.->xx5 . e C r . 




R43 


RiS . o . 2 ^Cr*I';^v/j-. x ^ ^ % ^ . F , 




R60 






R37 


RES . 75KOHM^V-;ATr5^C . F . 




R9 


RES ; 7 oKOHHisWArr 1%K . F - 


DALE RN60D7 6S2F 


Rll 


RES . 8200HM2?WATT5%C . F . 




U2, 11, 14, 16,22 


RES. DIP NETWRK . 47K0HM 


CT9 761-1R47K 


C21,41,45 


CAP . AXIALIMF@250VDC 


MALLORV «TC56 


C24 


CAP . AXIAL220MFS250VDC 


MALLORY 






LP2219250C7P3 


CIO 


CAP. AXIAL AI»UI*I ELEC . 


MALLORY 




4700 OMF@25TOC 


TCG472 JC25NIC 


CI, 2, 3, 55, 60 


CAP • RADIAL DIPPED TAI^n. 


KEMET 


10MF@25VDC 


. T350E106M025AS 


C53 


CAP . RADIAL DIPPED TANT. 


KEI4ET 




1MF@35VDC 


T35OA105K03 5AS 


C3 6 


CAP. RADIAL DIPPED TANT. 


KEMET 




47MF'510\TDC 


T3 50H565MC10AS 
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Ref. Numeral 


Description 


Manufacturer 


e of Component 


and Value 


and Part No. 


C54 


CAP. RADIAL SILV MICA 


KAHGAN 




100PF300VDC 


SD5101J301 


C57 


CAP . RADIAL SILV MICA 


KAHGAN 


70 


2OPF300VDC 


SP12200J301 


C49 


CAP . RADIAL SILV. MICA 


KAHGAN 




39PF300VDC 


SP12390J301 


C39 


CAP. RADIAL X7R MLC 


KEMET 




.015MF@50VDC 


C315C102K1R5CA 


is C6 


CAP. RADIAL X7R MLC 


KEMET 




.022MF@50VDC 


C315C223K5R5CA 


C30, 35,37 


CAP. RADIAL 25U MLC 


KEMET 


.015MF@50VDC 


C315C153K5R5CA 


C4,7 


CAP. RADIAL 25U MLC 


. KEMET 




.01MF@50VDC 


C315C103K5R5CA 


C4, 5, 6, 9, 11-19, 


CAP, RADIAL 25U MLC 


.KEMET 


22,23,25-28 


.22MF®50VDC 


C322C224M5U5CA 


C31-34, 37,42, 43 







47,48,50-52 



C46 

CR7,8,9,10, 
11,12,17 
30 CR1 ,2,3,4 
CR5 

CR6,13,15 
CR14, 16 
U6, 13, 15., 17 
as Q2 , 9 , 12 
08,10,11 
Q4 
Q7 

CI 
40 03 , 14 
Q13 
U5,27 
U23,26 
U7-10 
U30 

U24,25 
U23 
Ul 
U4 
U3 

U12,29,31,32 
U18, 19,20,21 
R24,42,63 
R38, 49,52 
R20 



<5 



50 



55 



R14,31 



CAP . VARI . 2-12PF . 
DIODE SIL. 

DIODE SIL. FAST 

DIODE SIL.FASTHIVCLT 

DIODE SIL. REF .2,5 COVDC 

DIODE SIL. ZENER3 . SV . 2 5 WATT 

SWITCH 8 POSITION DIP 

TRANS TOR . COMMON N?N 

TRANSTOR. COMMON PM? 

TRANSTOR . HI VOLTHI FREQ . NPN 

TRANSTOR . HIVOLTH I FREQ . PNP 

TRANSTOR. HIVOLTHI INPN 

TRANSTOR . H I VOLTNPN2N3 43 9 

TRANSTOR . H I VOLTPNP 

IC 1-SHOT 74HC221 

IC 1-SHOT 74LS221 

IC COOT ABATOR 74HC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC KI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC CONVERTER 

IC OC DRIVER SN7406 

IC OCTAL LATCH 74HC374 

IC OP AM? LF256 

IC OPTO ISOLATOR 

P OT 1 0 0 KOHM JjWATT 10% 

POT10KOHMJsWATT10% 

?OT25KOHMJjWATT10% 

?OT2KOHMJ*WATT10% 



JOHANSEN £9626 

ITT . FAIRCHLD . 1N4148 

GENL . INST . EGP10D 
GENL. INST-UF4007 
NATL. SEMI-LM3852-2 . 5 
MOTOROLA 1N4622A 
CTS 206-8 
MOTOROLA 2N2222A 
MOTOROLA 2N2907A . 
MOTOROLA MPSU10 
MOTOROLA MPSU60 
TI,MOTOROLATIP48 
MOTOROLA 2N343 9 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC688N 
NATL. SEMI DACO800LCN 
NATL . SEMI • MM74HC193N 
BURR-BROWN 3584JM 
BURR -BROWN MODEL 724 
NATL. SEMI DM7406N 
NATL. MM74HC3 74N 
NATL. SEMI LF256H 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3622W-1-103 
BOURNS 3622W-1-253 
BOURNS 3622W-I-202 
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•plantiTftcrurer 


Ref. Numeral 




Description 




of ContDonent 




and Value 




and Part No. 


VRI 




REGULATOR 5VDC 




NATL. LM340T- 5.0 


RIO 




RES . ltGG0HpfeWATT5%C 


. F. 




R2,4 




RES . 1 . 2KOErB*WATT5%C 


.F. 




R32 




RES . 1 • 6KOHrDsWATT5%C 


.F. 




R44 




RES . 1 . 8K0HH3 ff V/ATTS%C 


• F. 




Rl 




RES . lOKEGOHI^fVt'ATTSTiC . F . 




R5,R22 




dtc 100HMWWATT5«C . F 






R65 






. F . 




R59 




T5 ^ in KOHKi' W ATT 1 #/ M 


F. 


DALE RN55D1002F 


R100 




pre 270OHM 






R101,108 




ore 470OPM 






R102 ,103 




RES 1K0HM 






106,109,110 








R104 




RZS.47000EK 






R1C5 




PCT.100KOHJ1 






R107 




POT.10KOHK 






Rill, 113 




RES.2200EH 






R112 




RES . 2 2 CHI*! 






R114,115 




RES . 470HK 






C100 




CAP.10KF035 VFC 






C108 




CAP. 10000 PF 






D100 




DIODE 




1N4148 


Q100,105 




TRANSTOR 




2N2222 


Q101,102 




TRANSTOR 




2N3906 


0103,104 




TRANS TOR 




2N3S04 


U100,U108 




IC I -SHOT 




74LS123 


U103, 104 




IC INVERTOR 




74LS04 


105.106 










U108 




IC LINE DECODER 




74LS138 



Of course, it should be understood that a wide range of changes and modifications can be made to the 
preferred embodiments described above. For example, the transducer could be of a type other than piezo- 
electric such as magneto-strictive, electro-strictive. and electro-mechanical. It is therefore intended that the 
foregoing detailed desenption be regarded as illustrative rather than limiting, and that K be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 

APPENDIX 
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lustst Ut rritttr tkEi j 

luotot UUtritlo* 07*14-44 

12*24*37 

Offm nta Sovct Um IW rtrwaal CMptUr U51C CMtUtr V2.00 

0030 «04 KB niTUj'KiMMt Jtt FrUttr' ISOrmUVltigHt tiUfcritioB* lUKBUTs 132 

oo» 0004 'Ksxi - nra.' 

0030 0004 

0030 0001 'AOTBSt -LI CurroH 

0030 0004 " 

0030 0004 -amiwT ici ins amott usawTwin 

0030 0004 'REVIHQX - 3.0 07-01-84 U£ Kltrofa* oodlficatioM 

0030. 0004 * - 1.0 02-U-U Itt Cuttle* of imitiU codt 

0030 0C04 * 

0030 0004 *nra - 7Ait com cu ooly at co^ilrd ly Ui IASOT 

0030 0004 ' CSPUSt, It tot ro taitr Ut mtmERl!! 

0030 0004 

20 0030 0004 -TCsaunrou 

0030 0004 Tlit rujrot ciliirttt w4ilt prtwitt t at*t «U 12 ittai irri&jtd 

0030 0004 * U 3 coliut of 4 row. Hi arrow itj% tlloo wnuit treud Ui 

0030 0904 ' tallt, Ut ♦ ud - krr* Utrwwt «r dicrttttt tilut it Ui first 

0030 0004 * rclu»n f and tht ttttr kty tttcvttt cum ads It Ut third colon, 

O030 0004 * Tit ttcood coJu** It « arrtr of ASCII ttriojt riprniatifif rtigrnt taw, 

35 0030 0004 * cwctntritioa, dtouty, and tiicwity, Tht vilwt ttttrrd it »1ma oat 

0030 0004 * art drop frftYiaty, pglit tidU, itro6t diWy, ltd nwxlt auaitr. 

0030 0004 Tht csuaadi io Ut third coIma art start/stop, lead, tm, aad uit* 

0030 0004 * 

0030 0004 *M7A BICTIW*T 

0030 000a * KWl reiatir to Mica mm Um li activt (0-U> 

30 0030 0004 * KEXUfU7 f D Amy for ttritgt tt*4 to ditsliy Ut mm 

0030 0004 ' NDSm7,0 A/riy for aotbtfl it Ut mm di tally 

0030 0004 ' 5UTI OifftrtntuI to Mvt ROOfX it arrow kry input 

0030 0004 " TTffl Pointer tit domt, mi* tcia to dirtct action 

0030 0004 * KfTlUFt Stwaqt for ttnao, Wl frot titu ditplty 

0030 0004 * 41 OtittnatiM for tioqlc kryttrokt iipttt 

35 0030 0004 * Hut Strut «fttrt IUmim It butt for mjint ditt filt 

0030 0004 ' ItlU&i Strut Mtrt rtifttt tut It itortd 

0030 0004 * R3 lot tt ft tally ntcul criphict characttr io am 

0030 0004 ' CI Wow to ditolay tare ill trip lie J ciinctrr io ttn ' 

0030 0004 ' n SpKitl f/iptict ctaricttr U riid Late ttrt 

0030 0004 DU.AJfr.VAJUia Utiftf Mill for tittito. puln itpUUdt 

0030 0004 * ME.VAU Vilw ut to dltitU port 0 to lac/dtc itelitadt 

0030 0004 

oo» 0004 so laiaT.cJumu stitic 

0047 0004 

0047 0004 IUSX»(S7 v n,«a7,4l 

0041 01FI 

45 0O4I. OiFC BSD lUTlAUUi *rMf Uit. vUbm ud art tcrt« 

oo4t oin 

004C OiR «XU TTfQ <> t 

003! 0100 

0031 0200 TTO • I 
0040 0200 AJ • 

60 0044 0W4 

00a 0704 WILE U • 

007f 0204 M • DOSTI 

00S3 0204 IF ACTIVEX • 1 AO DOUITIK < U£X TTO 60SU1 Pa.DOW 

OOAO 0204 aTXS 
0010 020A 
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Rtifwt Jit Frinltr 



Of f««t OUi Smtm Um 



FIE 2 

07-H-U 
I2:2li57 

UH firwail Coi^tir BASIC Csipiltr V2.00 
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30 



35 



0080 
OOCA 
COCO 
00F6 
OUI 
OHO 
0U5 
018R 
01C 
OIQ 
016B 
0108 
01DF 
01E& 
0U6 
01EA 



Q20A 

o:w 

020A 
020A 
020* 
020A 
020A 
O20A 
020A 
020A 
020A 
020A 
020A 
020A 
020A 



IF At • O0UU31 TMZH TYPQ • Si 
IF A* • TKOI TtPO « 2i 
If AS ■ ••• TKO n?n « Zl 
If AS ■ OUU<0> ♦ Wtt(72) THE* TTm « 4t 
IF AS - CXRStO) ♦ CXKKSOI TKDt TTPQ « Si 
IF AS « CXRStO) « CHUI751 TKO TTTQ « &; 
JF AS • WKS(O) ♦ CHRIt77) TKSI TOO « 7i 



'cxtcitt I <cr> 
MscrtMttt rirwbli 
'tftcrtiut vviiklt 
f 8p «to» Uy 
'dew arrov Wy 
*\ti\ irrw tty 
*r»5« *rrw kty 



IF AS > CHSS (47) ATO AS < CWtSU23) THD< TTFO » 8i* «cii 0 - 1 

ok n?a scsui ti, n, n, t<, n, n t tb 

VEXD 

rrm - o 



HIT SUB 
REA $PA££ 



45 



50 



55 
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fttl^tftt J ft frtottr 
Utjnt UlUritioa 

WHH Btti Swrrct UZ9 



na 3 

07-14H4 
l2i2iiS7 

1CT Ptrwttl CupvtK IU1C U^Utr V2.00 
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OIEA 
OIEA 

em 

0203 
02U 
C22C 
0230 
0730 
0233 
023A 
027f 

0:11 

02AC 
030 

0210 

035 

oar 

25 °2Q 
071 
079 

otrc 

02fC 

owt 

ao 0301 
0317 
0339 
0344 
.0341 
0340 

35 0340 
03!I 
0311 
0317 
03T7 
03U 

*0 0404 
0401 
04* 
040£ 
0413 
0437 

'5 044« 
0441 
04BI 

out 

0401 
04M 
50 0511 
03M 
030 
0541 
05U 
0SA1 

55 



0264 
020* 
0204 
0304 
020C 
GOC 

roc 
ococ 

O70C 
02tt 
OTfiC 
020C 
0710 

do 

0210 
0210 
0210 
0210 
0210 
0210 
0210 
0210 
02)0 
0*10 
0710 
0210 
0210 
0710 
0210 
0210 
0210 
0710 
021 0 
0210 
0210 
0214 
0214 
0214 
0214 
0214 
0714 

eai 

0211 
0711 
0211 
071B 
0118 
C2I8 
0219 
0218 
0211 
071? 
0211 
0218 



•mimmmm SUSRWTIK5 m THIS H1WJU uimimt 



IF TUTSI < 12 THEN VTFU ■ 0:R£TlMt 'tilt to priit M utioo 
ck mn - 11 WSUI Til, til, 11C, 110 
IF TOOtt < is rax u?a • 0 

Tib , it*rt/itop irep flo* 

IF KPW17,0) ■ *STMT* TXEM 60581 STMT.ltt 

vf icamu.o) • -hop • rax ogsw stom« 

KBUI(12,0) • rzm 
CSUa 0,7tWSU1 6ISPIO0 

STWT.Wi 

TWI • 'STOP ' 

CALL OOT.OX: *!■ todoli PCI 

UOTI 17,71itOUK 27 t 0»PRUT •p«lKTU6'i 

•ami • l 

SSTUU 

rrop.ittt 

JZKPt ■ •STMT' 

CALL OCT.CFFt 'la m*iW FCI 

IBCATE I7.71JC0L0R 13,0:HUT • 
ACTim • 0 

Tilt *lo«4 riifint pn+ilr 

IF REMUIU.U • •■ mu LOUIE 25 v limST 'Rugtit Nut is not iptcif itd*;t6Q5U5° AXYEETt RETURN 

C8SU1 SXIXOi 

IF IX < (fiUNUtt 4 1) TKtX SOTO F0W9 

UCATI U t 10-UXir£JUJIt4,t))/2:PBm REXUlU,nj # tot Foot*'; 

SOSUI UTtrr: 'uii lor t kiyhit 

tETQB 



FOUOs 



FIUI • IIWTIISm<lX),LDK5TUiniM> ♦ 'gU.Uf' 

pra FlUt FOR IIWT AS lit *Mt sitttra UU flit for rttf 



iwn ii t rotyio,0)i 

IXfUT 11,^(1,0)1 
IOTT ll 1 «3Wl2 l 0)i 
I CUT fl,HOCU(3 f 0)f 
UFVT U,tfXU(4,0h 
U.KOUIS.O): 

i«nn n f Kauii7,»ii 
ufut n,!iaui<8 t ni 

IXPUT tt,KOnJMl0,l)i 



•mi Ir^imcy 
'mi iHlitstft 
'mi street ft] if 
'ni< twin «UU 
'ru* Mm tilt 
•ruf fill titt 

>t»< conctntntiao 
'rui* Ititity 
Vtii visceiitr 
'riH turfftct tiBfioa 
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5 ht«jNt 4it Motir a^i^J 
(Hf». Oato Soorro Um » ,tS1C ^ U,r W0 ° 

osai «n acsz in "to Hit 

70 cao Q2ii 

0310 0211 OPO •SEABEF.RJr FW OUTPUT U 11 

psn Q2ii mm u.nuii whim u <if«u nit 

03W 0111 nm I^KOUMMh 'iw Ut dirtrtory »«• « "U 

0211 OBSE II 

nil MSP.PNWi 'law Ul pirmtin 

75 OWI «ll KHO 

0k05 W1B . » 

OUtt 0218 Tib Htt rimnt irolUi 

040A 0211 IF KXWU,U • " T>0 LOCATE 25 l l:ftUKT *Mijut *iw if oct f|tdHo4';;5GSUa UTICT:REHW 

044E 0218 tm •tUBW.W FUR 1WT AS II 

OiSF 0211 IXWT ll.UAXUtt 

20 0471 0118 CLOSE 

047 | 6218 IF UWUQ < 80 THEX 60T0 SAVE.REA 

0487 0218 UJCATt Climn -Oirtctonr i* FbU (80 rujwU mi.)- 

04A1 0218 WSW .UTOT:RnWi 

ObAI 0218 $AVE.R£At 

0U0 0218 ' 6DSUI SEttOt 

25 QUA 0218 IF II > KAJWI WW MT0 SftVEREAl 

06C7 0218 • 11 

0tC£ 0218 COLOR 15,0 

040A 0218 tOWTI 25,liFRW HOWni.Ui' ilrndy oiitts. Rtplict il oitt on »Um? \ 

070C 0211 W • " 

07U 0211 WILE U « " 

50 0725 0218 « « 

072F 0218 «» 

07:2 0218 LOCATE 2S f l:PRl»T SPACEI«:i>| 

07 < F 0218 IF U«r«M» *y TKCJl WTO REPLACE 

0778 0218 *rnin 

077C 0218 

35 077C 0218 SftVEKai: 

0781 0218 * *IU •UWlR.OLVt dtittt aid bickop dirKtory 

07B8 0218 !KM».UF" AS 'FtJOlR.CLT; $»Tt eld dirtrtorr 

07Y2 0218 OP EX 'KttHUSU* FOI t*UT AS II 

07A3 02IB CFW •REWIR.WP' FOR OUTPUT AS 12: 'lit ap mi dir 

0715 0218 ..... 
40 e7W 02 u 1XPVT ll.REWanttJ 7tid ittMtr of dir tolrm 

07C7 W J» BaxUKI • AEAHffll ♦ It 'mrtMt ly I 

07W 0211 Milt I2,RU»«U io ir« dlrKtofy 

07E1 0218 _ 

07E1 0211 FOT 1-1 TO REAWW - I 

07f| ^ UK l)WT ll.AI: 'rud wtnr t«o old ilr 

45 O807 071C MtlKT I2.M* '"ill tatry i« iw dirtctorr 

0817 021C «T I 

0832 0220 

0832 0220 OKE II 

0831 0220 

Kn 083? 0220 n\K\ I2,HDUWM>« •■riU «■ wtry to mo dirKtory 

C8n 0220 CLOSE I2j 'doflo dth dirKten 

0842 0220 

0842 0220 RETLACEi 

0U7 0220 FIUI • Il8HTllSTRfCR£AWB:i,lDl«T»l(REWaan-11 ♦ •REA.Rjr 

0881 0220 

55 
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Uiom Ui FriBttr fi£ - , 

Ui|»t blUriUea • 07-U-W 

...... I2i2»i57 

WUH OiU SWCI Hat !W frr».4l Caapittr USiC C^Jl«r H.OO 

70 om 0220 cro fjixj na wmn as in 'trtitt u» i*tt»ra <*u Mi 

one 0220 nrn ikhshho.oii iton iri^ . 

om 0229 MITC 11,(09(1,011 'itort uylitUi 

OSOC 07X0 «m II t Kffl(2 f 01i ttroaa *W T 

om ono win ti,xoon,e)t *itnrt h« vim 

9911 020 am l!,lSKm,Oli 'atari riu Hat 

75 013F 07^ om ll,«niS,01t 'iteriHUUu 

OTU 0220 

Oftt 930 ttlTC tl t HDB!C7 f l>J 'itart cwctitration 

0904 OTTO 10im II,1SMS(I,1)I 'atari amity 

MU 0220 WU U f lDn»l9 f l)i *itert Tiimity 

Ota 0220 KITE ll,nOUT(10 v l>i 'start itrlict ttuioa 

20 09U 0220 

0«A 0220 CLOSE Hi Moat tita tfiti Ult 

WF1 0220 

om ono ira v tEUEF,ur* ra oumrr as ii 

ow3 030 rwrr u,Fiuti *nvt ruum u < t fi«u rm 

WU 0220 ftm ll.TOCJlli,!)! Mm tat <incter T um at ttU 

2S 0A33 0220 CLOSE II 

0A3C 0220 ETTTO 

MW 0220 

0A4O 0220 SEAUMi 

OMS 0220 OPOf 'KUU.W FOR IK?VT AS II 

OAS* 0220 IWUT ll.WUOJKU rut imbtr el pittmi U iir 

30 OAtt 0220 II ■ is m wtrr poiatir 

OAAF 0220 

OAAF 0220 SLOG* 

,0A74 02*0 LIVE WOT 11, Ui rnl ant pittrro am Iroa dir 

0A81 0220 IF Al - HEKUtU.l) TKE» WTO SUSCX.MKCa catptrt nut .itb dir tftry 

0AA5 . 0228 IX • II ♦ 1 

55 OAAE 0220 IF II < IREAHJW ♦ 1) TKO BOTO SLOOP: 'click lor doct 

OACt 0220 SEAttX.DOJC: 

oau 0271 close ii 

OAO 0220 trnna 

OA0I 0220 

0AB1 0220 Ills 'ritara tita no chu»|t to ttit nutat ullirati 

OABA 0220 W1IT IS,*W*j 

OAEi 0220 CLOSE 13 1 ' clttt cm duaaal 

OAQ 0220 Kraa 

04F1 0221 

0AF1 0221 T2i 'protttt •♦• try 

OAF* CZ20 IF OR ) 5 TKI ttTUH 

0W5 0220 BIIRE - TIKI 

OUT 0224 OCUATI* - KWT1KE - 0UT1K 

0I1F 023 0LIT3KE « «E¥n« 

0921 022E IF OELTATIRE > 0.15 TVO M.TI « 1 OSE HULTI ■ RJLTl ♦ 1 

oi4i 0I2E if tun > 100 TCI K1T1 • 100 

so OCT 022E IOBHRDWX,0> « KXHKDOT.O) ♦ roWlKWI,3) • KJLTXi MiM Uc/mt 

OWF 022X IF IOiU(KEXUZ,0) > HEn!(JSKUX,ll THE* KWUOKM) • KEKJlKOQJI.Ui MatCl aat tUu 

OCO* 0221 CaCS JS^iSCSUI BISMQRfctETugj 'ihw on raltt 

0C15 022 

0C10 027E T3; 'pr«f*i \ry 

0C22 022 IF KOrui > 5 TXE1 KTUM 

55 OOl 022E ttfllKE • nia 
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Riaqtot Jit Pnottr 
bftqant CaUiratioa 

Wfnt Dati Sctrct Uif 



70 001 






CEtTATlKt ■ KOTTIKE - OLBTIK 


ww*a 










02 it 




IF BELTATIlE > 0.15 TKEX WLT1 « I ELSE R0LT1 » M.TZ ♦ 1 


0C77 






IF JUSJl > 100 TEOi RJLTX • 100 


VL47 






KEXOUfEXin.Q) > f©WUlEXUl,0) - JSVUtxnUl,?) • HXTli 'tub tncrtiwt 




677? 




lr KFJU(aBGJ1,0J < RETOtKEHJl.*! THEH R£XU(RDUX,0) ■ IBOJIKEXUX^h 'dick lis nlvt 




022£ 




rrnjri IS itEOSm DlSFKEXJiKFTUWi *ihM atv valoi 




Wit 










T4; 


'proem op a/too key 




A^C 




IF KTIUI KAD A * 0 TKF.B fiETtntXt too rov alrt&dr 


ABIT 






BIFFI > -liKKlB MEWlElflli UTTPRMi *fOvi ooifitir 0 00 1 


0974 


0230 






20 C074 


0230 


T5i 


'proem do** irrov kry 


6079 


0730, 




IF KEXUI KM 4 • 3 TKEM RTFWJh *!■ lottu rom airudy 


0D8F 


AIM 




BIFFI * I1SOSU8 KEVHEKU: KTTU!RXt 'tovc poiotrr iom oat 










ODAO 


0230 


T4i 


"proem lift arrow kiy 


QMS 


023 D 




tr TUTfunniT / 11 ■ & tvtv cttibqi "it lift taluu Alnufv 


2d vfcL-J 






D1FFX • *6tB0SU8 KfJfr£lQJ:KETUR]li 'aovl poiottr oat left 


0CD4 


0230 










T7x 


'srartti riflht irrz* ktr * 


ODDB 






IF IKTCKEXUI / 41 " 2 THEI RETURN *ii ri §ht coluia almdy 




A*TTA 

0<W 




aim s itfioon kfyrFVU'KFTUHXi *amt lainttf on» riobt 


WtWr 








» v Otvr 


AIT A 


TOi 
101 


•;•.>.) v.yr inla tCTBUFS Bfitll <cr> if tAttftd 


OEM 


0230 






OLU 






IOC1TT 75 30xCDLM 31.0:WIM1 *EVIES KEH VALUE?:iCClM 15.0 


0EI3 


0230 




fmiifi * at 


0E3F 


0234 






orn 


0234 






^ OCBF 


0234 




tariTT 55 1?! F8IKT CTTIUFIl 


OEAtf 


02W 




41 • *" 


003 


0231 




wuti r ii ■ »• 


QEC2 


0231 




k% » J ttXtJ 


octc 


0234 




IF ACTIVEl • 1 m DWJTIRE < TlflER THO( S0SUS PFJi.fiCVli 


CEFA 


0234 




ITKD 


40 OEF? 


0234 




IF H « OUWtB) A«3 tntttTBUFt) ) 0 TVDJ XETBVJFt •. LiniltEnUFf ^(KETBUFD-l) 


OHB 


0234 




IF Al ) CHRM31I AX9 UX(aTIUFI) < 15 TKEM OYiUFI • KETBUF1 * M 


0F73 


0234 




KXB 


on? 


02*4 






on? 


0234 




IF KEW1 > J THE* SOTO ST0RE5TBIB 


<5 0FM 


0234 






' 5 Of SB 


0234 




TEW • VAUtETIUFS) Hup ait valoi of 1171 insot 


oni 


0238 






OF?l 


023B 




'rouad off tiaa accordlni to stip tin U mo irray 


0F98 


0Z38 




TEX? • mtTCKf 1 (XEXU(CMUl ( 3)) « .5) < REKU(REXUI f 3) 


CFOl 


0238 








0238 




'list TE?5? for luiiuj and alaiaoa viUrt In iui array 


9V cm 


0238 




IF TCTP > KElfUlHEWJI.l) TKTJ TEW « KTJflKRfJQTI,!) . . 


1017 


0238 




If TEW < REKUIREXUI^) TKE31 TEW » KEKUIREWX,21 


104F 


0238 






104F 


0238 




'ibitri vikt into mo array mi aplati icrtts 


104F 


0238 




KEWHHFJtVt.O) « TEW 


55 «» 


0238 




UWTE 23,30iF2Iin SPACE* 1401J 



f«E 4 
07-14-84 
12j2Ai57 

m ftrvnil Coa^itar IUIC Coaoiltr V2.00 



22 



... : P»«r .... ... ... 



Rftfift at frUUr 

tu»Mt UUUltiM 

CUwt feti Sorrel Uet 



70 




0738 




ITT* 

1 VI I 


ftTTJ 


my** 




IMF 


923 






t Ait 




inriTc M-20iP1IIT SPACE! (40) I 






9238 


75 


f*M» 




mrs & 7 j den Bisranai 


■ »rr 
IQfct 

ion 


023 


RCTtBQI 




IwrZ 


0235 






lor / 


HTT9 


Mwriie « Tim 4 1 




1107 


0238 




20 


1H7 
1119 


0238 


HfclWOI — 




Ull 


0238 




AXTXETl 




luv 


0238 






Hi* 


in to 






111* 


QLi4 


■mix in " 


25 


i « rr 
lUi 


Oii* 


At • IKEYi 




USD 


BUS 


una 

Kill 




11(0 


0238 






I1H 


0238 


8ETU88 




UH 


0238 






11« 


ons 


EWDtlh Vitl tW itN in t^Um. poiet to »< M^U$*t *tm ittt 


JO 


iitf 


0238 






1181 


0238 


■ mn m wn » Rim 
ftcSUi * ncKUi * Birr 4 




USD 


0238 


ie Brwirr ■ ti Tvm trvtrr • 1A 




UCT 


0238 


ir lcvjfr % i% Tvm «rvtn ■ 
IF nEWi i 15 Infc* nt.lMfc ■ 15 




un 


0239 




35 


UF7 


0238 




UF7 


0239 


INITIALIZE: 




HFC 


0238 


'ckit^t to sko&4 scmia 1*4 tfispliy ittwfts 




I1FC 


0238 


SLKitl 0,0,1, UtO-un / ,9tU.a:UAAIt lO|2llrniMl llutUlZlOj nHV 91t|lllr| 




1240 


0238 


LOCATt 12|I3ukI1T 'Flttst Vi)t«.«* 




I25A 


0233 






ISA 


0238 


'laititlili vtritolt* 


ISA 


0238 






ISA 


0238 


ACTrfTl • Ii' tot iriBtii) 




12*1 


•238 






mi 


023S 


'StSUUfxi ilotUr cot chwMl 




mi 


0238 




45 


mi 


0738 


era •cnui:w,i f i l 2 # as n 


•1273 

\m 


0238 
0738 


FRIIT l3/jiUra,tFrl,H'| 




1283 


0238 


'liitUUxt «i|itll port • 




1293 


0231 


sax • 4 




\m 


073A 


CAU 016ITAl.0VT(SCST) 


50 


«u 


023A 


soa » o 


12AS 


0231 


CALL llSlTAL.0VT(SO13i 'pw\u met Hot to ut it^littt^f to 0V. 




1211 


023A 


saa • 4 




mi 


023A 


CAU. IlilTAL.OtfTlSCni 




120 


023A 






I2C9 


023A 


*nl Urinirt t«Ut «t<t> 


65 


12C9 


023A 


CALL sn.fiOT.UOTHtS) 'i» w<JuU Ki 



ria 7 

07-H-W 
12j2Ai57 

IN ttrwul to*ittr USH CocpUtr T2.09 



23 



0 2&237. 



5 

Ritqwt ««t Motif FAST I 

U*iwt CjUfcratlor 07-14-44 

I2i2*i57 

Wf ui OiU tec* Uot in Ptriowl boovttf USIC Co*# Utr Y2.0C 



70 


ort 




128 


C23C 


•Uitiilfxi uriyt 


12JE 


GET 


ROTOtt hSXAJl 




022 


na u-c to 17 


UO 


07X 


ku una* iii.o) t rauttix,in 


1JU 


one 


sos mwiix l »,i«»nii l 2J l roaiin l 3) .Haolix,!! 


75 137C 


022 


«m a 


13RF 


022 




IW 


0X2 


'Mi rfHwit rt»|Mt valou 


138T 


022 






022 


£KU0,0) » 2O00i Mrtiawqr 


13JLS 


OSS 


K£KJU,0) * 9: 'moIIUm 


20 1K4 


UK 


BBRja,0> > It 'ttroM Oily 


120 


022 


KE»n,0) • WOi 'pilu •Ktt 


13FC 


023C 


KEHH4,0) • 470) 'ritt Um 


1418 


022 


fiX!(? t 0) * 070) 'fUI Um 


1434 


022 




im 


022 


K3aj(4,0) ■ Ox 'mm 


25 1432 


072 


KDOC7,0) • Oi 'CMMotrttlM 


144E 


022 


KWU,0> • Oi 'iwiitr 


USA 


022 


«0UH,O) • Oi 'ilicosUy 


1444 


072 


E*JttO,0) • 0: *iurt«o twilae 


14C2 


022 




14C2 


022 


as.JU7.vaio • o *uuiu of o 




022 




14Ct 


022 


'(Jtiiigt Ktirt disfliyid icrtis to *irtt icrMn to tri* wd dispUy piriMtirt 


net 


022 




UC1 


022 


SOOT 0,0,9,110s 


HEi 


022 




14E4 


012 


COLOR 13:UCATE l,32:PRl« *fc£KEXT CALIBRATE*; 


35 1S07 




COCR 1 


1S0E 


022 


rat 1*2 TO 71 


1311 


0231 


LOCATE 3,1:PRIKT 'P'pLOCATt 3,!:PR1KT TjiLCCATE Sf ,IiPftUT Vj 


1S4F 


023 


ROT I 


1SH 


0231 


FBI J»4 TO 11 


<0 U " 


022 


ICCATT l.UPRUT 'r;:LDCATE I,28:PRI»n V;:lCtATI J,41:PR1)CT Vs:U(ATE I,80tPRIXT 


40 iwt 


022 


rut i 


U2* 


122 


ROTORS TAtti 


142» 


072 


F« l»l TO 12 


1W7 


022 


RUJ ll,CX,HiUCATt Rl,a;niIT ORI(«)| 


iua 


0244 


rot i 


1483 
1483 


•244 




0244 


'iriat Urtc htifingt tod UstructlMi 


IMS 


0244 


COUR 10,0 


UYS 


0244 


LKATt 4 1 7:fRlfT 'DROP PARAMETERS'! 


14A) 


0244 


LOCATE 4,3!:PRIRT 'REASEXT PARAMETERS* 


14Q 


0244 


LOCATE 4,7l:HUT •CBMAXSrj 


50 U6F 
HOP 


0244 




02U 


CSUR 7iL0£ATE 21,20:P1UT 'Ult VCttCR 13iP*HT iCKRKZ2) iOCRKJllj 


1729 


W44 


PRIRT CXRIt32);OiKI{24l}C}<RI(n);CHtt(23);:CaR 7iPRlVT * to lositiu biqhU 9 htii curw'i 


1748 


0244 


LOCATE Sje.'Pim 'Uu "pCDlOR 13)P«UT •♦•jtCCLOR 7iPRIKT * or •jiCCUR 13jPR1IT '-'j 


171E 


9244 


CDlfiR 7iPRIRT a to "roll cvrwt villi o# rr «o«»'» 


«7U2 


0244 


LOCATE 23,2iiPRIKT n*it •pCClOR ISiPRlRT •jrjiCOUJR 7iP*W to utivoti mIkUm'i 


55 


0244 





24 




fti>T«*t Jit frinttr 
fatfMt tilikrttioa 







Uti 


Sourct Um 


25 










1114 


0244 


Disr.rMKSi 




lilt 


0144 


'dliplir U mis c*cict* it ytllM 




lilt 


0244 






1111 


0244 


COUK 14,0 




ins 


0244 


FTO ISXJI » 0 TO 17 


30 




0244 


60SUI 01SPKDU 




1831 


0244 


ten rarui 




1841 


0244 






1841 


0244 


•«t for mint niti tntf fcljfcUght it 




. 1841 


0244 


KKJl viiCClW 0,7 




18S4 


0244 


60SU8 HSPKOU 


35 


IttA 


0244 






18SA 


0244 


soax 0,0,0,0 




lUf 


0244 






1873 


0244 





07-14-« 
I2:2ii57 

It* fn-w.il Cawittf BASIC Cupllif V2.00 



40 



45 



55 



25 



0 2S8J237 



70 



Utqnt Jit Prietir 
btim Ulibr itica 

Wfwt UU S«rct Um 



PISE U 

C7-14-M 
t2i2it37 

IU PtrweU Cotpttir M$1C Cupiltr V2.00 



75 



20 



25 



1*73 
1178 

tao4 
im 

ItOI 
1T53 

im 

IT75 

im 

IMF 

am 
im 

11C7 
17E3 

U02 
im 

U04 

UM 
U24 
UM 
30 U57 

m? 

IA8? 
UN 
U90 
U9D 

35 1AA2 
1AC8 
IMC 
UEB 
IAEF 
IAFA 

40 HOB 
U15 
1172 
113F 
IMF 
IMF 

llil 
1D5 
U?S 
llil 
UM 
50 tltt 
UCA 
UU 



3244 

KM 

0244 

0744 

9244 

0244 

02W 

0244 

02M 

0244 

0244 

0244 

0244 

0244 

02*4 

0244 

0244 

0244 

02M 

0244 

0244 

0244 

024* 

0244 

0244 

0244 

02U 

0244 

0244 

0244 

0248 

0249 

024* 

024A 

0244 

024C 

024C 

024C 

024C 

024C 

02 4C 

024C 

024C 

024C 

024C 

024C 

024C 

024C 



UCATE CKBTOX EB *M2*7 t Un(KOo^m28*2J*l3iIITlBEKJX/U) 

nm nowttx£Kfl f o) 

IF KDCX > 3 THI WTO JKCISTRIWr to vUtt to Ufolty 
LOCATE (TOOT RC5 4M20 f ttW(KDUX ( 4) 
rim 8SJKS KSWnW,M|KQn>UauX,0)| 

if ism > 2 rex rctw 

ok rdobu ram sh.fub, sct.ot, sct.kut 

betum 

S>CGTRU5t 

IF HOW > 10 TKO trnsut 
UCATE tPOTI 109 4U2*7,48 
PRUT • 

mcin inorai ran 4m*7,4t 

PRUT XOUMXEWl f ll 
8ETDW 



Srr.FR£B: 

TOT « TOtU(0 f O) 

CAU SET. BOT. KATE (TOT) i 

US! ■ 3-lVMITOT*500)/l0001 

if tax < o im tax • o 

Sax • 4 ♦ OOX I 32) s 

am Dunu.auTcscnit 
ictus* 

sn.AWi 



'i« wAili PCI 



*«t IB iotttsity 

'j. ttdolt PCI 



/ 1301: 



SCTX « CIXTJKEMIIHEKUX.OI 

if sax « ou.aap.vauex i«i utur* 

TOTX « Sax • BU.AW.V^un: 

nj.Mf.vAiua ■ sails 
ois.vau • 4 

IF TOTX < 0 TOC OU.VAU • 3 

TOTX » US (TOTX) 

F01 IX « 1 TO TOTX • 

SOX • DIfi.VAU ♦ WlOX) 
CAU 0I8UAL,0tfT«CWIi 
SOX • 4 ♦ 132 « LOXJ 
CAU OUiTAUOUTtttSXli 

KJT IX 
BITUSX 

SCT.RUTi 

TOT - KTO(2 f 0» 
CAU 5CT.ST*0tE.0EUT(TOT)i 
RETUMI 

REX IPASE 



'cwirtrt volts to bimnr nuifiir 
'calnUtt dtlti 

'opBltl 0U V«l« tO CTBTtflt T*l«t 



'ptlu Mgotr or Iomt 
'lit port to Mr Ml 



'll toialt PCI 
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0 2S8 237 



i«t M rYiatn 11 

1 I2i21i37 

Wlut 0*ti Sow« Lim lU rtrwail Coeattr I1SIC Cupilir Y2.00 

1ICA 024C 'IMMIMIMI DATA USO IT THIS WWII mwihhhi 

IBCA 024C 

,3 lia 024C tttCATl: 

IW B«C MTA -Frwrnr Hx',MUIIMOO©0,l,l,U 

1101 02IC MTA 'MpHUit ' , /m , t t50 l 0,l t H 

\m 074C MTA 'Slroli Milt rf , , , ll,IM.r l t5Wt.5f3 1 .3,U 

1ID3 024C DATA Twin »UU , l M«* l trf I 0 1 i,11 

1107 024C MTA Hilt Tilt • l , lir,m,0,l,W 

20 I"' 024C MTA fill TUt •, t l« , l m,»,l f W 

1101 024C MTA 'lmV',0,0,0,0 

1100 024C MTA *C«c»tritiooV\W,*i& 

UDF 024C MTA *D«sitT W,0,0,0 

1K1 024C MTA •VlUMlty' l " l O,0,O t O 

IBO 024C MTA 'SttfUct TtB»iofiW,0,0,0 

25 IK5 024C MTA ••,-,0,0,0,0 

1U7 024C 0ATA •START', ",0,0,0,0 

11CT 074C MTA •UW* I " I 0,0 I 0,0 

1K1 024C MTA •SAV£ t ,",0,0,0,0 

llO C24C MTA •DIT',-,0,0,0,0 

11EF 074C MTA ",",0,0,0,0 

30 IBM 02<C MTA -,",0,0,0,0 

tin o:<c 

lin 02« TAltfi 

\Vt 024C OAT A 3,1,211 

1*1 024C MTA3,7t,2lO 

IIFC 02<C OAT A 3,U,210* 

35 1BFF, 02IC MTA 3,80, HI 

1C0O 024C MTA 3,1, 1M 

IC02 074C DATA 5,2B,201 

U04 024C 1 MTA 3,H,20i 

1C01 024C MTA 5,10,111 

1C0I 024C MTA 19,1,193 

40 ICOA 024C MTA IT,21,2W 

1C0C 024C 04TA IT, if, 201 

IWE 024C MTA lt,90 t 217 

1C10 024C 

1C10 024C OQ SUI 
1C17 024C 
45 IC17 024C 
23Q- 02 tc 

50424 lrt« AvtilUlf 
43140 )yt» Fftf 



50 



55 



0 VtroU? Error Ul 
0 kvtrt Errorti) 
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*** ••• • 

Reagent Jit Printer * * * - " " - • * % - * . • 1 

Pattern Entry/todification 07-05-36 

10iUtl3 

Of fstt Data Scarce Line m Personal Cotputer BASIC Co»piler V7.00 

0030 OO06 RDl ITmEx'RcigBBt Jet Printer' ISUBTITLE: 'Pattern Entry/Kodif 
i cation* 

0030 0004 # nOWL£ - •PATEXT Pattirn creation, aodif icatico, and filing 
0030 0C04 

0030 0006 'WHnCa - X. A. Enevold 
0030 0004 

0030 0004 'CtJPTSJSKT (C) 1995 ABBOTT LABORATORIES 
0030 0004 • 

0030 0004 'REV1SI0X - 1.2 03-10-86 MAE Reaove House inputs 
0030 00O4 * 1.1 02-20-86 RAE Add 80 pattern Uiit to save 

0030 ©004 # 1.0 0W3-B4 NAE Creation of initial code 

0030 WW 

0030 0004 '5T5TEH - This code un only be compiled by the BASCOH 
0030 0006 ' COWIUR, it will not run. under the INTERPRETER! 1 

0030 0004 

0030 0006 'DESCRIPTION: 

0030 O006 # This nodule aUoNS the usir to LOAD, SAVE, DIRectcry, 0 
m and 

0030 ,0006 V enter repeat count and other paratcters (or a pattern t 
o be printed. 

0030 0004 * The lo«-re$olution graphics aode is selected and a eenu 
is displayed 

0030 0006 ' across the bottoa of the screen. Using arroi keys 
0030 OO06 * point to the action to be taken and then invoke that ac 

tion vitb the 

0030 0006 * Enter key. In the DRA* »ode, mother eenu is 
0030 0004 ' displayed »huh allo»s the user to select froa LIKE, RE 

CT angle, 

0030 0006 ' Solid RECTingle, or CIRCLE pattern elements. 

0030 0006 

0030 0004 'DATA DICTIOKARY 

0030 W04 ' 5CKDATX(50,5) 51 Ron (eieeents) by 6 Colutn array f 

or storing pattern clesents 
0030 0004 * CURSOR! 191 Storage for cursor graphics icon 

0030 0004 ' BEKUM6) Up to 7 aenu naaes can be saved here 

0030 0004. * aNUtt Count of nuiber of eieaents in a patt 

era 

0030 0004 * XX YX Current location of graphics cursor 

0030 0004 * BRIO Value of one dot space on the screen 

(default is 0.005M 
0030 0004 ' JtGWX COLX Location to print instructions 

0030 0004 ' U Storage for single keystrokes or inp 

it strings 

0030 0004 * KDiUWJH Which tenu is being displayed (1 or 2 

1 

0030 0004 ' ITER Pointer to ubich aenu itea is highlig 

hteo" 10 • 4) 

0030 0006 * REPEAT! Huaber of tiies pattern is to be repe 

ated *hen printed 

0030 0006 ' XOFT YOFF X and Y axis distance between the pri 

•nting of repeated patterns 
0030 0006 ' ROVSP COLS? Ron and Colusn spacing for printing a 

uitiple sets of patterns 
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0 255 2^7. 



Rtigint Jtl Puntir PAGE 2 

Pattern tAtrv/ftodification 07-03-S6 

10:44:13 



Offset 


Data 


Secret lint IBH Personal Cotputtr BASIC Coapiier V7.00 


0030 


CC04 


PATCU&I Kunbrr of patterns stored in 






the pattern directory PATD1R.RJP 


0030 


0004 


OWWI DCOU Ron and Coloin location to display di 






rectory entry* 


0030 


0004 


MAKES Pattern nan to be LOWid or SAVEd to 






directory 


0030 


0006 


U tt Coulters used to LOAD or SAVE the ele 






tent data froe/to pattern data file 


0030 


0004 


FILE* Nate of pattern data file 


0030 


0004 


TEHPX Which type of elenent is being draw. 






1 « Uie 2 * Rectangle 


0030 


0004 


• 






3 » Solid Rectangle 4 • Circle 


0030 


0004 


RASX Sate as Mm above 


0030 


0004 


STARTHSSt ENMSSf flessage display for startpoint and en 






dpoint of eleient entry 


0030 


0004 


III Yll Starting cursor position for 






eletent being drum 


0030 


0006 


III OYI Otita I and Y values used to 






reposition cursor aftir arrow key 


0030 


0004 


MUTE}) The highest nuabir itet in th 






e current tenu display 


0030 


0004 


IS IE Starting and ending I position of the 






•eoa highlighting blue boi 


0030 


0006 


RADIUS! The calculated radius of .a ci 






rele to be displayed 


0030 


0006 


m fPASE 
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Reagent Jit Printer PASE 3 

Pattern Entry/fcjdifi cation 07-05-86 

10i4oil3 



Off sit 


Ditt 


Sotxrcz Lint IBJ1 Perianal Co lout tr BASIC Conniltr V2.00 


0030 


0006 


SUB PATEHTRY STATIC 


0047 


0006 




0047 


0006 


WIDTH 40jSCREEH 1:CIS 


005F 


0006 


01R SOJDATI(30,5J , CURSOR! C9) ,KENU*(6) 


(In&O 
wov 


029A 


ELNUKI » 0xXZ*0iYl«0i6RID « 0,003 


ft ft TIT 






fi07T 
wwi r 


61A4 

Villi 


LIKE (0.0M6.6J..B 


Aft At 




LIME (0.31 ..B 


vuu 




LIKE (3.0)-(3.6K.B 


ftftcq 




preset (3.3i 


OOF? 


02A4 


6ZT (0 I 0)*(6,6) ) CURS0RX 


0116 


02A4 


as 


0110 


02A4 




0119 


02A4 


LIKE (0,0M319 V 190) M B 


0140 


02A4 




0140 


02A4 


RESTORE INSTRUC 


0147 


02A4 


PTJB Isl TQ I 


0131 


02A4 


READ ROHl.CQLl.Af 




02AE 


i npflTT pmrf rotl* PRINT Alt 


01SO 


V&JtW 


UPTT T 


fit 9ft 






V ATP 


VXSv 




ft1 fift 

U1HU 






ftl 0& 






01B6 

V4PV 


02B4 




O1B0 


02B4 


OX I TEH ♦ 1 6QT0 PATDIR, PAT 10AS, PATSAVE, PATDRAW, REP 






EAT, PATOT 


01CD 


02BB 


WTO FIRST 


01DO 


02B8 




O1D0 


02SB 


REPEAT: 


01D5 


0288 


60 SUB 1TEKB0IERASE; erase bjue box around D1R 


01DB 


02B3 


LOCATE 23 t l:PRIHT SPftCEK39>; erm ttnu line 


01FB 


02BB 


LOCATE 25,lzIHPUT;'Eft«r Repeat Count '(REPEAT! 


021B 


. 02BA 


LOCATE :S,l:PRtNT S?6CEM39>} 'erase una line 


0233 


02BA 


LOCATE 23, IxlKPUTj 'Enter I Axis Offset ^XOFf 


0235 


02BE 


LDCATE 23,1:PR1KT SPACEn39)j er«e eenu line 


0272 


02BE 


LOCATE 25,1: INPUT; "Enter T Axis Offset \Y0FF 


0292 


02C2 


SOTO FIRST 


0296 


02C2 


PATEITx 


029B 


02C2 


WIDTH SOiSCREBi 0:aS 


0232 


02C2 


U1T SUB 


02B* 


02C2 


REX fPASE 
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ReaqeM Jet Printer PAGE 4 

Pattern Entry /todificat ion 07-03-Bi 

10iU:13 

Sourci Lin* IB* Ptrional Cotputer BASIC Cospiltr V2.00 

PATDIR; 'list directory of patterns 

S3SV8 ITmOlERASE: 'true blue boi around SIR 
LOCATE 2S,1:PRINT SPACEM39); "erne teou lint 
OPEH •PATDIR.RJP* FOR 1KPUT AS III 'ope* directory 

file 

INPUT It, PATWMi 'read nuaber of pit terns in dir 

ectory 

LIKE {X, n-(3iB f 189) t 0,BFt 'erase graphics tablet 
I « Ot 'set counter 

DISLOOPj 

I « 1 ♦ U 'set for next value 

IF I ) PATKMX THEM 60TO OIROITj 'test for done 
IF IKTU1-U/44) <> U-D/44 THEM GOTO SKOVHEXT 
IF t«T((l-n/441 < 1 THEM WTO SKOVKDT 

LOCATI^ 25,1:PRINT •Kore to Display, Continue ? (Y or N) 

GOSUB CORLDOP: 'na.it (or Y or N response 
IF A* « 'K* THEN GOTO OIREXITi 'if N then don't contin 



• LIKE U l n-(318 I 1B?) 1 0,BF: 'erase graphics tablet 
SHOMEXTs 

DROK « UI- 1) K00 ZD ♦ 2: 'calculate ro* for dis'p 

uy 

DCOIX » 4: 'sit coluw to 4 

IF ttl - 1) HOD 44) > 21 THEN DCQLX • 23:'reset colum 
il necessary 

LIKE IKPUT ll f AS ? -read neit naae froa directory 
LOCATE DROWX^COLl^RIHT AS) 'PRIKT XARE 
GOTO DISLOOP 

DIREXITi 

CLCSE lis 'terainate access to PATDIR.RJP 

60T0 FIRST 



Offset 


Data 


028& 


02C2 


02BB 


02Ct 


02C1 


02C2 


02DE 


ozc: 


02EF 


02C2 


0301 


02C4 


0326 


02C4 


0330 


02C4 


0330 


02C4 


0335 


02C4 


0344 


02C4 


03SB 


02C4 


0384 


02C4 


03A9 


02C4 


03A9 


02C4 


03C3 


02C4 


03C? 


02C4 


030C 


02C4 


03DC 


02C4 


0401 


02C4 


0401 


02C4 


0406 


02C4 


0422 


02Co 


042* 


02C8 


044C 


02C8 


044C 


02C8 


0439 


02C8 


0475 


02C8 


047? 


02C9 


0479 


02C3 


047E 


02C8 


048S 


02C8 


0489 


02C6 


0489 


02C3 



REK IPAGE 
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Reagent Jit Priottr 
Pattern Efltrvn-odifi cation 

Offset &ata Source lint 



07-05-B6 
10i46;U 

m Personal Coeputer BASIC Cotpiler V2.00 



0(89 


02C2 


fATUAC; 


04BE 


0113 




50SUB ITEKpOIERASE: Vise blue box a/ouod DIR 


0494 


07CB 




OPE* 'PATOIR.RJP' FOR IKFUT AS 11 


04A3 


o:cs 




IKPUT ItjPATWmX: 'read auaber of patterns io dir 


04B7 


02C8 




SOSUB SETKAKE: 'proipt for and input pitttro n 


04BD 


02C3 


ut 


LIKE U^l-UIS.WI.O.BF: erase graphics tablet 


04E2 


0213 






04E2 


0IC3 




SO SUB SEARCH 


04 IB 


G2C3 






04EB 


02C3 




IF II < (PATVUJtt ♦ 1) TKEK BtJTO FOUHO 


04FC 


07CA 




LOCATE 10, 16-<LEN(KAHE* 1/2) :PRIKT HAKE*;* not Found'; 


0531 


WCE 




LOCATE 12,14:PRIHT 'Strike Any Key' 


054B 


02CE 




SO SUB AHTCEY: 'mit for a keyMt 


OKI 


02CZ 




60TO FIRST 


0333 


07E 






0555 


02CE 


FOUNO? 




055A 


02CE 




FILE* * RiSHTHSTRfllD^XtSTRItlin-l) ♦ 'PAT. RE- 


037E 


0202 




OPEN FILE* FOR INPUT AS 11: 'set pattern data file 






for read 


03SF 


0232 




IKPUT ItvCLXWIX: 'r«d owotr of eleients in pat 






ttrn 




05A1 


0202 




IKPUT II,8R10: 'read ?rirf size 


0383 


0202 




IMPUT H,REFEATX: 'read repeat count 


05C5 


0202 




IKPUT lt,10FF: 'read x axis offset for repeat 


0307 


021/2 




INPUT llfTOFF: 'read y axis offset for repeat 


03E9 


02*2 






03E9 


0232 




for ix s o to awni - i 


03F7 


02*4 




FOR « « 0 TO 3 



0SFD' 


0204 


INPUT i;,32;:AKUl,n):'rtid file into screen 






array 


0621 


0206 


NEIT tt 


0631 


0206 


NEIT IX 


0643 


0206 


CLOSE lit 'done »ith data file 


064A 


' 02D6 




064A 


02D6 


OPO* 'PATOEf ,RJP* FOR OUTPUT AS li 


065C 


020* 


PRJXT ll t FILE*: 'save filenaae in defau 






It file 


066C 


0206 


PR1KT ll,RMEf: 'save the directory nit 






e as veil 


067C 


0206 


CLOSE 11 


0683 


0206 




0483 


0206 


SOTO RED RAN 


0667 


02W 




0687 


021-6 


SEARCH* 


06BC 


0206 


IX » U 'set entry pointer 


0693 


0206 


SLOOP; 


069B 


02W 


LIXE IKPIH 11, As: 'read next pattern mie froe di 


06A5 


0206 


r IF A* « KAKU THEN 60T0 SEARCH. ENO: 'coipare naie ■ 






ith dir entry 


06B8 


0206 


IX * IX ♦ 1 


06C1 


0206 


IF IX < (PATKUR1 ♦ I) THEN 60T0 SLSCPi'check for done 


0604 


0206 


SEARCH. END: 



32 



0 - ♦ 



• e « 
o o • 



0 268*237 



» * » o » n 
- * » * 



JO 



15 



20 



24 



30 



35 



*5 



50 



Reigtnt UX Printer 
Pattern Entry/ notification 



Offset tata 
0609 0224 



Source Line 

CLOSE II: 



F ABE 6 
07-05-86 
iO:Utl3 

IBS Personal Coeputir BASIC Coeoiler V2.00 
'not found so close file and disoliy it 



ssaqe 

OoEO 0X36 fcTPJW* 
06EA 07Do 

06E4 02W SEX JPWE 



55 
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Reagent M Printer mm " * * * - . - ^ASE 7 

Pattero Entry/Hodificalion 07-05-86 

i0t46tU 

Offset Data Soorce line IS* Personal Coaputer BASIC Coipiltr V2.00 

PATCAVE: 

BOSUB ITmSDIEP-ASc: 'trait blue box around OIR 
IP ELXIM « 0 THEN SOTO FIfcSTi 'no detents in pattern 
OPEN •PATDIR.RJP* FOR INPUT AS 91 
IHPUT !l t PATVUHI 

IF PATNUM ( 80 THEM SOTO SAVE.PAT: 'directory fall 
at 80 patterns 
CLOSE ti 

LOCATE 25,1;PRIXT SPACE! (39);: 'erase bottoi I 

im 

LOCATE 2S v l:mXT 'Directory i% full <80 patterns tax) 1 

? 

BOSUB ANYKEYlBOTQ FIRST 
SAVE.PAT: 

60SU8 BETNAHE: *proipt for and get pattern oaae 
BOSUB SEARCH 

IF II > PATXUHI THEN SOTO ADD.HEN.PATTERN 
LINE tl ( U-t3l8 l l8?l l 0 l BFi 'erase graphics tablet 
LOCATE lOjn-OEXOiinUJ/IhPRIXT HAKES}' already exist 

LOCATE 12,15:PRINT 'Replace lt? # 
PATNUHI • U 
W * " 
WILE A$ » 

as » ixrni 

VEND 

IF AS » % V OR AS • V THEN BOTO SAVE. PATTERN 
60TO FIRST 

ADO.NEV.PATTHX: 

Kill •PATD1R.0LD': 'delete old backup directory 
HARE •PATOIR.R:?' A3 , P*TDIR,010': 'save old direc 

tory 

' OPEX "FAT01R.OLD" FOR INPUT AS II 
OPEN "PATOIR.Rj?' FCS OUTPUT AS 12: 'set up new dir 
IKPUT ll^ATWni: v M d nueber of dir entries 

PATKimx « PATKUKI ♦ l; 'increase by I 
MITE 12, PAT Witt: 'sive in new directory 
FOR 1*1 TO PATNUHI - I 

LIKE IKPUT 11, AS: Ytad entry froi old dir 
PRINT 12, Al: 'write entry in new directory 

NEXT I 

PRINT I2,NAJIEI: • 'write new entry to new directo 

nr 

aOSE tUCLOSE 12: 'done with directory 
SAVE. PATTERN: 

FILES * RIBHTI (STRJ (PATXUKX) ,LEN (STRi (PATNUHI) 1 -1) ♦ »P 

AT.RJP* 

0965 02DA OPEN FllEJ FOR OUTPUT A3 II: 'create new pattern dat 

a file 

0977 02DA MITE ll,£LMURI: "store nutber of eleients 

098B 02DA MITE II,BR1D: .'store 9rid diiensioa 

0998 020A EUTE 11, REPEAT!: 'store repeat count 

09A9 02DA MITE ll,X0FF: 'store x axis offset for rtput 



06E4 


0206 


06CT 


02D6 


06EF 


0206 


06FE 


02D6 


O70F 


0206 


0721 


0206 


0730 


0206 


0737 


0206 


0754 


0206 


074E 


0206 


0778 


02D6 


0770 


0236 


0783 


0206 


078? 


02*6 


079A 


0206 


07BF 


0206 


07F4 


0206 


OBOE 


0206 


0815 


0206 


OBIF 


0206 


082E 


0206 


0838 


0206 


083B 


0206 


• 0864 


0206 


0868 


0206 


0868 


0206 


086D 


0206 


0874 


0206 


087E 


0206 


086F 


0206 


08A1 


0206 


08B3 


0206 


08BC 


0206 


08CD 


0206 


08E6 


020A 


0BF3 


020A 


0903 


02DA 


091E 


020A 


092E 


020A 


093C 


020A 


0941 


02DA 
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BAD Off QINAL 0 



0 268 237 



Reaom Jtt Printer P«£ B 

Pattern Entry/Red) ficatiw 

10M6:13 

Offset Dili Source lint Personal Cotputtr BASIC Coipiler V7.00 



09B7 


oisa 


■KITE 11 JCFF: 'store y axis offset for repeat 




02vA 


FDR IX « 0 TO aKJXX - 1 


0707 


02DC 


TO 31 » 0 TO 5 


OSDD 


o::c 


WlH i^SDWXUl^Xh 'witi screen a 






rray to file 


OAW 


025C 


NEXT JX 


0A10 


02LC 


VEJT IX 


0A22 


02BC 


dOSE 11: 'done with tiU file 


OA?? 


62K 


OPE* "FATCF.MP" FOR OUTPUT AS 11 


OA3t 


02K 


PMXT ll,FXlEls 'save filename in defau 






it fill 


OA« 




PRJKT ti t SnKEfi 'save the directory nat 






t is «ell 


OAS? 


02SC 


ODSE li 


0A&2 


02DC 


60T0 FIRST 


0A66 




RET! IP ABE 
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0 2£8°2&7 « " ' 



Rn^-.t PrUUr " • - - PA6E 9 

PUtirn Entry/Kodificitioo 07*05-86 

lO:Uil3 

Offitt Ziti Swrci lint 13K PwscmI Coipattr BASIC Coioiicr V2.00 





on: 


PATTYS: 


0MB 


o:dc 


rasa iteisc7Et;se 


OA71 


woe 


LIKE U,n-C318.!8?J,0,BF: 'Erui graphics tablet 


0A9b 


07ZZ 




0W6 


02TC 




OAS* 


02TC 


SSRUR * 2 


0AA3 


OIK 


issin sgkexu 


0AA£ 


020C 




OAAB 


0Z5C 


CK ITU ♦ I WTO ALIKE. RECT, SHECT, ACIRCLE, RDRAM, B 








OP 


02K 


SOTO XQTEL 


OACB 


02DC 




0AC3 


02IC 


BACXOPi 


OADO 


C20C 


60SG8 ITD1BQIERASE 


0AD» 


020C 


SOTO FIRST 


OADA 


OZDC 


- 


OAOA 


020C 


ALIKE: 


OADF 


02SC 


TEKPX « 1 


OAEo 


025E 


STAKTKSS* s •START2KB EWPOW 


OftFO 


02D 


EKOnSBf * 'ENDING ENDPOIKT B 


OAFA 


07£h 


SOTO EHTERELEKEXT 


OAFE 


02B 




OAFE 


02E& 


RETT; 


OB03 


02£o 


TIKP1 * 2 


O80A 


02E& 


WTO REETXSS 


OBOE 


02£4 




OBOE 


02Ei 


S^ECT: 


0B13 


02& 


TEH?1 « 3 


OBJA 


02U 


RSCTX3&; 


OBIF 


02Eo 


STARTrtSBJ = 'START I No CCRNER' 


0B27 


02E4 


EKWSof * "EN0I86 CCRHER • 


om 


02E4 


SOTO EKTER ELEMENT 


0B37 


02E6 




0B37 


02Ei 


ACIRCLE: 


0B3C 


OtEi 


7 em * 4 


0B<3 


02E6 


STARTSSE* * 'CEJtTER OF CIRCLE' 


OB« 


02E& 


DC8SB1 * 'POIKT OH CIRCLE • 


0B57 


02EA 




0B57 


01U 


EXTERELEXEXT: 


CB5C 


C2EA 


60 SUB ITEH30IERASE 


0Bfc2 


02U 


aAEI«0 


cm 


02EB 


LOCATE 25,UPR1)»T SPACE* 13?) j 


om 


02E8 


LOCATE 23,1:PRUT STARTKSSt} 


OBA0 


02EB 


605US CI 5? CURSOR 


om 


02EB 


FINEST ART: 


OBAB 


02EB 


5Q3UB KCUSEACT 


0881 


02EB 


IF AT « CH8M27) THEX SOTO ABORT 


08C8 


02EB 


IF Af * CHRIU31 THEM 6010 SET ST ART 


OBCF 


02EB 


SOSUB OJRS0RK0VE 


0BE3 


02EB 


SOTO F1KDSTART 


OSES 


02E8 


ABORT: 


0BE& 


02E8 


SOSUB PLACECURSOR 


08F3 


02EB 


60T0 KEITEL 


0BF7 


02EB 
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Rtigent Jet Printer p^j iq 

Pitttra Entry/Kodificition 07-$5-S6 

10:Ui13 



Offset 


Diti 


Sourct Ur,e IW Ftrwnil Coiputtr BASIC Coipiitr V2,00 


0BF7 




SE73TART: 


OEPC 


o:e8 


LC^TI IS.UFRIHT EV03SBI; 


OCU 


02EB 


p.;sx » TEKPisux « ii:Yii * n 


OC2B 


02EC 


IF FU5X « 4 THEK PSET UZ*4,Y1*4) 


0C5 


02EC 


FIXBEXD: 


0C5A 


02EC 


605UB W3USEACT 


oao 


02EC 


IF A* * CHRf 127) TKEK 6OT0 CAXCELR 


0C77 


02EC 


IF A* * CHRf (13) THEK GOTO SAVER 


OCSE 


02EC 


60SUB CURSCRSOVE 


OC94 


02EC 


6QT0 FINOEW 


0C97 


02EC 


CASCEULj 


OC9C 


02EC 


EOSUB PLACECURSOR 


0CA2 


02EC 


OM FLA6I BOSUB ERl, ER2, ER3, ER4 


0CB3 


02EC 


ftASI » 0 


OC3A 


02EC 


BOTO N EI TEL 


OCBE 


02EC 


SAVER; 


0CC3 


02EC 


BOSUB PLACECURSOR 


OCC? 


02EC 


IF FIABI « 4 THEM CIRCLE cm*4,YU«4) .SORIUX-Xi:)*:*! 






YX-YiX)*2),„ t l 


OD32 


02EC 


60SUB CORRECT 


cm 


02EC 


IF AI« , X' TKW BOTO RctRW 


OD48 


02EC 


STOREELi 


0D30 


02EC 


SCHDATI(aHUKl,0) * FLA5X 


OD6A 


02EC 


SCKOATX(aWJ«X,l) « III 


0D85 


02EC 


SC«0ATI(aKURI,2) « Y1X 


OOAO 


02EC 


soc;n(aNunx,3) « n 


ODBB 


02EC 


SCKCATX(ELKUXI,4) » II 


ODD& 


02EC 


SCWATX(ELVURI f 3) • 3 


ODEF 


02EC 


aKURX « EUUrtX ♦ I 


OOFB 


02EC 


FLASI ■ 0 


ODFF 


02EC 


6370 KEITEL 


0E03 


02EC 


REB fPABE 
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Reigent Jit Printer * PABE 11 

Pattern Entry/KocHi cation 07-05-8& 

10:46il3 



Offset 


Data 


Scarce Lire IBS Personal Coeouter BASIC Cotoiier 


0103 


02EC 


REJRAa": 


OEOB 


02£C 


S03US 17EKS0IERASE 


OEOE 


02£C 


LIXEU, 11-1318,187) ,0,BF 


oro 


02£C 


IF EUCUm ■ 0 THEN SOTO KEITH 


OE42 


02EC 




0E42 


02£C 


fo? 1*0 to Euum:-i 


0E3B 


O2F0 


OX BOOATXU.Ol 60SUB RDi, RD2, R03, R04 


0E61 


02FO 


REIT I 


0E9C 


O2F0 


SOTO KEITH 


OEAO 


O2F0 




OEAO 


02FO 


*iffH4fft Sub-routines called by tain todule fttum 


OEAO 


02F0 




OEAO 


02F0 


SUBREXUi 


0EA5 


02F0 




OEAS 


02F0 


LOCATE 2S,1:PR1XT SPACES (3?) i 


CEX7 


02F0 


OH nENUVUn 60SU8 KENUl, IIEXU2 


0ED1 


02F0 




O'EBl 


02F0 


FOR 1*0 TO 6 


OEOB 


02FO 


READ XENUf U) 


0EF2 


02FO 


LOCATE 23 l ti»o)*2:PRI)tT KEHUI ( I ) ; 


0F2B 


02F0 


KEIT I 


0F46 


02F0 




' 0F4i 


02F0 


READ KAIJTEfl 


0F4D 


02F4 


im « o 


0F57 


02F4 




0F57 


02F4 




0F5C 


02F4 


GOSUB HEUTESBOI 


OFtt 


02F4 




0F*2 


02F4 


KEITITEX: 


" 0F47 


02F4 


BOSUB ITL'SEARCH 


0F40- 


02F4 


IF AJ = CHRSU31 TrEN RETURN: * ITEK has correct 


0F84 


02F4 


IF LEXUt) < 2 THEN eEEP:60T0 KEXTITEX 


0F9A 


02F4 


IF ASCUICJJAS,:,!)} » 75 THEN BOTO LSFTAR 


OFBS 


02F4 


IF A$CMlDS(ftf 9 ?,l)> * 77 THEH BOTO RIGHT AR 


0F02 


02F4 


BEEP:S0T0 HEITITEA 


OFO? 


02F4 




OFO? 


02F4 


UFTAR: 


OFDE 


02F4 


IF ITEK * 0 THEH BOTO MEITITEJ1 


OFEE 


02F4 


BOSUB ITEH80IERASE 


0FF4 


02F4 


ITEf! ■ ITER - 1 


1003 


02F4 


60TO m\m 


10O7 


02F4 




1007 


02F4 


RIBHTARj 


iOOC 


02F4 


IF I TEH » KAXITE* THLM SOTO KE1TITEH 


101F 


02F4 


BOSUB ITEHBOIERASE 


1025 


02F4 


ITEM » ITEH ♦ 1 


1034 


02F4- 


60T0 KEWTEH 


1038 


02F4 




1038 


02F4 




1030 


02F4 


RESTORE Ml 


.1044 


02F4 


RETURN 


1048 


02F4 




1048 


02F4 


KEXU2: 


1040 


02F4 


RESTORE m 
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Rugint Ut Priotir * M -* * * • -> *ASE 12 

Pitttre Entrv/JtosittcitiM 07-05-86 

10:46:13 



Orfsit 


Uti 


S:urct Uni IM Prnomi Cotputtr BASIC twpiltr V2.00 


1034 


02F4 




10S8 


02F4 


* 


1058 


02f^ 


2TSXSMOU 


105* 


02T4 


Al « IttEYIiIF AS 6 " TKDi RETURN 


1076 


02f4 


WTO ITinSEARCH 


1070 


02F4 


RETVRX 


1081 


02T4 




1081 


02rA 


KEKTTEKoDXi 


1084 


02N 


IS » (ITESMB) ♦ 7 


10SC 


073 


IE « (I7WM8) ♦ 8 ♦ LEX (KEXUS( ITEM) 18 


100? 


02ft 


ue (is.mwiE.mi.M 


1101 


02ft 


return 


110? 


02rc 


* 


1105 


02FC 


ITT3DJKASE: 


110A 


02ft 


like (is.iin-nE.mi^B 


1131 


02Ft 


RETURN 


U35 


02ft 




1133 


02ft 


PLACECURSOR: 


113A 


02ft 


put ixi*i f n*n,ctrKSCRi 


1157 


02ft 


RETURN 


1153 


02ft 




1 1 SB 


02Ft 


MUSEAtT: 


1160 


02fC 


6QSUB AHYXEY 


uu 


02ft 


Oil « 0 : DYI « 0 


1174 


0300 


IF AS « tHRIIO) ♦ CK?S(72) TKEH OYI « -I: RETURN 


1190 


0300 


IF Al « CHRt(O) ♦ C«U(S0J THEN OYX « I: RETURN 


net 


0300 


IF At « CHRtIO) ♦ C*iti771 THEN DX.I * 1: RETURN 


UEF 


0300 


IF At * CHRt(O) ♦ CHiM75) THEN DU * -1:RETURN 


1218 


0300 


IF At • *8* THEN DTI » -20:RETUKN 


1232 


0300 


IF At c »2' THEN OYI » 20: RETURN 


124C 


0300 


' IF At s '4' THEN 0X1 « -IOiRHURN 


1266 


0300 


IF At * V THEN DU - 20: RETURN 


1280 


0300 


IF Al » CHR! 1271 THEN RETURN 


1257 


0300 


IF At « tHRK131 THEN RETUKM 


12AE 


0300 


8t)T0 HOUSEACT 


12B2 


0300 




1297 


0300 


DSSORflOVE; 


12B7 


0300 


WSUB PLACECURSOR 


1230 


0300 


DN FIA5X GOSUB ERi f ER2, ER3, ER4 


12CE 


0300 


XI « XX ♦ Oil j YX • YI ♦ on 


12B 


0300 


IF XI < 0 THEN XX « 0 


12F8 


0300 


IF XI > 311 THEN XI « 311 


1308 


0300 


IF TI < 0 THEN YI • 0 


131D 


0300- 


IF Yl > 182 THEN YI « 182 


1330 


0300 


W FLA6X SOSUB ORl, DR2, DR3, DR4 


1341 


0300 


E03U8 CI 5? CURSOR 


1347 


0300 


RETURI 


134B 


0300 




134B 


0300 


CORREtT: 


1350 


0300 


LOCATE 23 t l:FRlXT SPACEt(3?)j 


1360 


0300 


LOCATE :5 t UPRIKT MS THIS CORRECT? (Y or N) •? 


1387 


0300 


CCRLQOP: 


138C 


0300 


SOSUB AHTKEY 


1392 


0300 


IF Al « V OR Al « 'Y* THEN At * 'Y'iSOTO COREXIT 
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RawBflt Jit Prtntir" * **** a 0a P*5E 13 

Pftttirn Entrv/HooificiUw 07-W-«6 

IOiUiIJ 



Offset 


DiU 


Sourct Line 15* rirsonil uoftpattr ofoit wioutr vx»vv> 


13C3 


0300 


t- #• - *0 fit ■ TUTU fit s 'V^'COTH ntPFTtT 


13TB 


0300 




13TB 


0300 




1400 


0300 




HID 


0300 


RETURN 


1421 


0300 




1421 


0300 


OlSrCURSunt 


1426 


0300 




142C 


0300 


i nr_A1T 75 27»PRIKT • ft. Ill* : II I GRID: 


1456 


0300 


PRINT , } 


1463 


0300 


PRIKT USiHb JT1 t brtJQj 


143C 


0300 


RETURH 


1484 


0300 




1464 


0300 




1484 


0300 


R01: 


148? 


0300 








DATXU,4)*4) 


1522 


0300 




1526 


0300 




1526 


0300 


RD2: 


152B 


0300 


UKElSOl0Antl f n*4 l SCK:ATltl l 2)»4)-(SOIDATIll t 3)*4 ( SCX 






DAT! II, 4) +4) M B 


15C4 


0300 


RETURN 


15C8 


0300 




15C8 


0300 


RD3: 


15CD 


0300 


UKSlSCKCAUlI^J^^CxrATKl^J^J-ISCXOATItl^lU.SCR 






CAn(l|4)*41,,BF 


1W7 


0300 


RETURN 


U68 


0300 





1668 0300 R04: 

u70 0300 RADIUSI * SCRllSCK:ATi;i,3)-SCK0Anti f in*2 ♦ (SCHDATTl 

l l 4)-SCX0AUll.2)) A 2) 

16FF 0302 CIRCLE (SWDATin.UM.SCNOATXlMMl jRAOIUSX,,, ,1 

1750 0302 KHURX 

1761 0302 

1761 0302 Ml: 

1766 O302 LIKE (XlIMJIXMl-lIIU.YIUJ 

17AF 0302 R^TURM 

17B3 0302 

17B3 0302 DR2; 

ITB8 0302 LIKE UiX^YlIMl-lXIMJXMl n B 

IB01 0302 

1805 0302 

1805 0302 0R3: 

lB0A 0302 LIKE <IIXM I Y1X«4MXXU 1 YIM> 1I BF ' 

. 1834 0302 RtTUR« 
1B58 0302 
1858 0302 0R4: 
1850 0302 &ETORX 
1861 -0302 
1861 0302 ER1: 

U66 0302 LINE UllH l U:*«MXX*« 1 YXMl ,0 

18AF 0302 RETURN 
18B3 0302 



0 268 237. 



Recent Jet Printer PABE 14 

Pattern Efltry/Kodificition 07-05-86 

10M6U3 



OHset 


Data 


Source tint IIH Personal Cotputer BASIC Coapilir 


1BB3 


0302 


ES2; 


18B8 


03C2 


LIKE at:*4 l Yi:*4J-(Xl44 l Ut4J,0 t B 


HOI 


0302 


RETURX 


1905 . 


0302 




1903 


0302 


ER3: 


190a 


0302 


LIKE (Ii;*4 l YilM)-(Xl*4 t n*41 l 0 l BF 


1934 


0302 


RETURN 


WB 


0302 




1959 


0302 


ER4: 


1930 


0302 


RETURX 


1961 


0302 




1961 


0302 


AKYKH: 


1966 


0302 


AS « " 


1970 


0302 


WHILE A$ » 


197? 


0302 


A$ » UOCEYf 


19B9 


0302 


KEXO 


19BC 


0302 


RETURX 


1990 


0302 




1990 


0302 


BETHAKE: *pro»pt for and get filenaie 


1995 


0302 


LOCATE 25,1:PRW 5?ACEn39)j 


1932 


0302 


. LOCATE 23,38;PRIUT •<;•;: 'boundry chevron 


19CC 


0302 


LOCATE 25,1;PR1HT 'Enter Pattern Nate 


19E6 


0302 


LIKE IKPUTj •• 1 XAniJ 


19F4 


0302 


RETURK 


19F8 


0302 




19F8 


0302 


* Data fields used by this ioouU 


" 19FB 


O302 




19F8 


0302 


KX1; 


19FD 


0302 


DATA OIK t LGrO , 5*»»t , *KA* , RUM , till , , 


19FF 


0302 




19FF 


0302 


RH2: 


IA04 


0302 


DATA •LIXE'/RECT'/'RECT^/CIRCL'/REORV/IWIK' 


1A06 


0302 




U06 


0302 


IXSTRUCj 


UOB 


0302 


DATA 8,16/USE ARROWS' 


UOD 


0302 


DATA 10,9, *T0 SELECT FRCrt THE KEKU* 


IAOF 


0302 


DATA 14,12/USE THE EHTER KEY' 


1AU 


0302 


DATA U,10,*TO ACTIVATE SELECTION 


1A13 


0302 




1A13 


0302 


EXO SUB 


IMA 


0302 




21AF 


0302 




50426 Bytes Available 


43373 Bytts Free 



\5 



0 Warning Error (s) 
0 Severe Error(s) 
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Riajsat JsJ Print*r ## .* ; 
Burr-Broim ?Cl-20000 custoe driver 

Offset Diti Sourci Line 



08 i 38: 16 

UH Personal Computer BASIC Cospiiir V7.00 



occo ooo6 

0006 
0006 
00C6 
0006 
0006 
0006 
0006 
0006 
0006 
0006 

0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 

0006 

0006 

0006 

0006 . 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 



KEJt IWUj'Reigent Jet Printer' JSU8TI7U: "Burr-Brow PCl-2000 
0 custoe drivtr' 

KODUU - 'PCI* Driver for the PCI-20OO0 I/O and PUISE cards 

AUTHOR - K. S. Fairchild of Computing Architects Inc. 

113 Fairfield Hay 
Blooeinodele. U 60106 
312/980-6777 

C0PYP.I6KT (CI 1983 ABBOTT LABORATORIES 

REVISIOH • 1.2*12-16-35 HSF Add digit*! I/O initaliution, end 
output routine 

• 1.1 12-10-BS HSF Wove counter aodule to position 2 

• 1.0 U-22-65 RSF Creation of initial code 

SYSTEfl - This code can only be compiled by the BASCOft V2 
CCHPILER, it nill not run under the 1KTERPRETER! ! 



ccess 



auscs 



OKCRlPTIOKj 



The PCI toduie is a group of routines used to a 



vide 



Ivers 



the BURR-Brcnn PCl-20000 board. The supplied software c 
the Wordstar2000 sott-ire to ealfuoction and «ill not p 
explicit on, off functions for the counters. Custoe dr 
•ill be iade to provide all of the desired functions. 



Address Reenter 

IHC0000 Carrier I.D. / §odule present (R) 
IHCOOiO nodule interruot status (R) 

IHCOGSO Digital I/O port 0 (R/VI 

IHCOOBI Digital I/O port I (ft/tf) 
IHC0082 Buffer direction and eoable (R/V) 

IHC0083 Control for ports 0 and 1 (V) 

IHCO0C0 Digital I/O port 2 (R/U 

IHC00C1 Digital I/O port 3 (R/V) 

IKC00C3 Control for ports 2 and 3 (10 

IHCO2O0 Read mdule 1.0. (1U0 1010} 

IHC0204 Rate generator lon-oroer 16 bits (0) 

VHC0205 Rate generator high-woer 16 bits (1) 

WW206 Counter 3 count regiiter <2) 

VHC0207 Rate generator/counter 3 control 

IHC0208 Counter 0 count regUter (01 

IHC0Z09 Counter 1 ccunt register (11 

VKC020A Counter 2 count register (2) 

IHCC20B Counter 0-2 control 

IHC020C Counter gate control (I enables, 0 disa 
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Reagent iti Pn? 
Burr-Src« K\< 



Offset 


Cata 


0030 


0006 


0030 


twos 


0030 




0030 


00 04 


0030 


cow 


0030 


0006 


0030 


0006 


O030 


0004 


0030 


0004 


0030 


OO04 


. 0030 


0006 


0030 


OO04 


0030 


0004 


0030 


CO Co 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


0004 


0030 


O006 


0030 


O0O4 


0030 


0004 


0030 


0004 


004C 


0012 


00<C 


0OJ7 



tir 

vOOO custsa irivtr 
Scerce tint 
fclrsi 



it 



PABE : 
06-30-94 
08:38:14 

IBX Personal Coaouter BASIC Coapiler V2.00 



function 

Rate gener itor gate 
Rati generator gate 
Counter 0 gate 
Counter 1 gate 
Counter 2 gate 
Counter 3 gate 
Hot used 
Hot used 



•:aia dictionary 

CQWJT - Divisor to 2Khz rate to jive desired frequinc 
y or tie* 

COUXTH1 - High order 14 bits of a 32 bit diviso 

r 

C3UNTU - Lou order 14 bits of a 32 bit divisor 
LSBX - Loner 8 bits of a 14 bit divisor 
nSBX - Upper 6 bits of a 14 bit divisor 

' Rain line code 

The tain line code is never executed. It's sole purpose 

it to 

' declare shared the variables that «iil be used in the subrout 
ines 

' so that they "ill all be cehned and hold their values, 
AAI*:_ 

OIK SHARED COUHT 1 CCL , .lTKI l COU«TU f LSBI 1 ISBX 

MIKLOOP:.. 

SOTO'KAIklBOP 

REX.SFASE 
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Reigwt Jet •rrxr.ttr • . • *• • &Ttf i 

8urr-2rowfl PCI-2CC00 custoi driver 06-30-86 

08:38:16 

6f Hit Diti Sovce ur.e Persoail Cwcuter BWIC Coapiler V2.00 

004C Con TJbSSuJTIKE - pci.ikit 

oo«c ;oa 

O04C 0012 •OtSSUFiiBl: 

004C 0012 * T>r PCl.HIT subrsitioe initiUzes the PCI hirdwire. 

004C 0012 

oo<: «i2 sus pci.iirn static 

0053 0912 

0053 0012 KF 5E5 * VKCOOO: 'Point segient to Ptl-20000 boird 

005A »J2 

005ft 0O12 ^*E lK0ttC,lRW: 'Eisibie ill softwire embled counter 

0063 0012. 

0063 0012 ' Configure rite generitor to 2 Khz 
0063 0012 

0063 0012 POKE W0207,W34: 'Set lo* rite counter to eodi 2 

0060 0012 POKE ;K0207,fcH74: 'Set high rite counter to eode 2 

0077 0012 POKE W0204,IH02: 'Void Ion rite counter with 16 bits o 

I 1 

00B1 0012 POKE IH020«,WOO 

OOeA 0012 POKE W0:05,IK02: 'Load high rite counter with 16 bits 

of 2 

0094 0012 POKE 1X0205,1800 

0090 0012 P0«£ WO20C,;H03: 'Enable rite counters 

O0A7 0012 

00A7 0012 * Configure dot rite counters idefiult to 5 Khz) 
00A7 0912 

O0A7 0012 POKE *K02C3,tt<:4; 'Set Is. dot counter (01 to aode 2 

00B1 0012 POKE lt02v3,lH74: Bit nigh dot counter (I) to lode 2 

OOBJ 0012 PCKE kKv20c,lH04: *Ui3 Ion rate counter with 16 bits o 

f * 

00C5 0012 PCKE IH02CS,IHOO 

OOCE 0012 POKE VH02G9,VK64; "loie bich rite counter with 16 bits 

of 100 

0008 0012 PDK£ W0I09 ( Ui00 

00E1 0012 

O0E1 0012 " Coofifae dot pulse with one shot Idefiult to 13 usee) 
O0E1 0012 

O0E1 0012 POKE VH0203,IKS2: 'Set oot pulse with oneshot (2) to io 

de 1 

OOQ 0012 PCtE IH02CA,UUA; *loid oneshot with 16 bits of 26 

O0F5 0012 POKE IK020A,IHQ0 

OOFE 0012 

OOFE 0012 ' Configure shifted strobe pulse ooe shot (default to .5 usee) 
OOFE 0012 

O0FE ooi2 WKE \M2C7,W82: 'Set shifted strobe onshot (31 to »od 

il 

0108 ft 0 j 2 FUKE ^0206,^01; 'loid oneshot with 16 bits of 1 

0112 0012 POKE IH0206,WOO 

OUB 0012 

OUB 0012 ' Configure port 0 to output and port 1 to input 
0118 C012 

OUB 0012 POKE IH0083,;H82: ' Set up I/O chip 

0125 0012 POKE IK0082,VH34: ' Set up direction ind enible buffers 

012F 0012 POKE IH0080,IKOO: ' Dissible print held 
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m 

• m 



Rei$fr.t J«t ^rintir P«E * 

Burr-cro«o PCl-tvvCC cus;oi «river 0&-30-8fc 

08:38:11 





Sua 


Sourci Lint ItH Personal Cowuttr BftSIC Coapiler V2.00 


0135 


con 


EW SUB 


013F 


0012 




013F 


con 




013F 


ocn 


"SU3&1UTIKE - 001. OK 


OOF 


ocn 


• 


013F 


0017 


'SESSHFTZQN! 


013F 


0017 


The DDT. CM subrootint enables the dot frequency counter 


013F 


con 


s. 


013F 


con 


SL'B (97.0X STATIC 


01U 


0012 




0146 


con 


PCKE mO20C t WQF: 'Enable dot counters and rite genent 


0150 


0012 


or 


0150 


6012 


m sub 


0157 


0012 




0157 


0012 


RCn f?C,SE!F;12 


0157 


con 


"SiraMJUTlKE - DOT, OFF 


0157 


0012 


» 


0157 


0012 


'3E3TR1PTICN: 


0157 


ocn 


The DOT.GFF subrou i disables the dot counters 


0157 


0012 




0157 


0012 


SUB DOT. OFF STATIC 


015E 


0012 




015E 


©on 


PGTE lKO20C,W03: 'Oisablf dot counters and enable rate 






qrnerator 


OUB 


0012 




01U 


0012 


OiD SUB 


OUF 


0012 




OUF 


0012 
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• 




• * Q 0 268 23X m * a mm 


• • 


• * 


• • • » m m m mm* 


• 


• • 


• • # • * * * m m m m m m 




# 


« • ««*••** m » . m m m m * 


• 


a 


• mm m m m m m m 


• 


m 


• * • • * • 


Reaoent 


Jit Printer P«E 3 


Burr-Brow PCi-20000 custci driver 06-30-S6 






AD. * 0 * 1 L 


Of f sit 


Dili 


Scrrce Une 1871 Personal Cotputer B*5It Coiotlir V7.00 


our 


0012 


'S3K0UUHE - SET. 2DT, RATE 


OUF 


0012 




OUF 


0012 


'SISCSIPTIOK: 


OUF 


0012 


The SET. DOT. RATE subroutine loids the dot rate counters 


OUF 


0012 


* with the deiired dot frequency. Allowed range is 10,000 to 1 






Hz. 


OUF 


0012 


' The FRES paraaeter is a real nueber in Hz. 


OUF 


0012 




OUF 


0012 


SUB SET. DOT. RATE (FREQ1 STATIC 


0174 


0012 




0176 


0012 


' Uiit freqincy to in range 


0176 


0012 




0174 


0012 


IF FREQ < 1 THEN FREQ « 1 


OUF 


0012 


IF FREQ > 10000 THEN FREQ * 10000 


01A6 


0012 




01A8 


0012 


' Convert to count and check for U bit count or 32 bit count 


01AB 


0012 




01A8 


0012 


CuUHT * 2E6 / FREQ 


0158 


0012 


IF COUNT < 65336! THEN 60T0 BIVIDEU ELSE SOTO D1VI0E32 


01CF 


0012 




OICF 


0012 


' Process count of 32 bits 


OICF 


0012 




OICF 


0012 


0IVIDE32:. 


0100 


0012 


COUNTU « IKTUC0UNT/32768!) ♦ III 'Stage io«r count 


01F0 


0012 


COUHTHI » INT<CCUKT/CCUXTLI); 'Fori uoper count 


0208 


0012 


SOTO SET.COUXT 


020F 


0012 




020F 


0012 


* Process count of 16 bits 


020F 


0012 




020F 


0012 


DIVIOEU: 


02 U 


0012 


COLWTU « 2 


021B 


0012 


COUHTHI * IHTIC3UNT/2) 


0232 


0012 


GOTO SET. COUNT 


023& 


0012 




0234 


0012 


' Send the derived counts out to the counters 


0236 


0012 




0236 


0012 


SET. COUNT;. 


0237 


0012 


LSBl « CCUKTU ROD 256: ' Send out Ion U bits 


02« 


0012 


KSBI « IWTICOUNTU / 236) 


0243 


W12 


POKE IK0:08,U5BX 


0273 


0012 


POKE lH020B,nSBI " 


0283 


0012 




0283 


0012 


LSBI • COUKTKI WOO 256: 'Send out high 16 bits 


0291 


0012 


KSBI « INTICGUNTKI / 236) 


02AC 


0012 


POKE lH0209 t lS8I 


02BC 


0012 


FOICE ^0209,11381 


02CC 


0012 




02CC 


0012 


EHD SUB 


02JJ3 


0012 




0203 


0012 


RE* $PASEIF;27 
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Reeqeot Jit Printer * 
Burr-Srow» PCl-IvOOO custo* driver 06-30-86 

08i38:16 



Offsit 


Data 


Izzrzi Lint IER Ptrsonil Coaoutrr BASIC Coepilir V2,00 


021)3 


C0J2 


•SWSCCTIIiE - Sn.DOT.KiOTH 


02D3 


0012 


• 


02D3 


0012 




0203 


0012 


The SET. DOT, WIDTH subroutine loads the dot width one sh 






ot 


02D3 


0012 


' «Hh tte desired dot pulse vidth. Allowed range is .5 to 16,0 






00 usee. 


02D3 


0012 


' The diridtn parueter is a reil nuiber in usee. 


0203 


0012 




0ID3 


0012 


SUB ScT.:3T.«5TK(D«DTK) STATIC 


02DA 


0012 




025A 


0012 


' Li lit width to in range 


02DA 


0012 




02DA 


0012 


IF WIDTH < ,5 TH£V OWOTH * ,5 


02F3 


0012 


IF DUI07H > 16000 TKEX WIDTH « 16000 


030C 


0012 




030C 


0012 


' Cocvert to count 


030C 


0012 




030C 


0012 


COUNT * D«I0TH / .5 


. 03tft 


0012 




031A 


0012 


* Stnd the derived count out to thi counter 


031A 


0012 




031A 


0012 


ISB1 « IUTICDUHT AOO 256): ' Send out 16 bits 


0331 


0012 


KSBI • IHTICDUXT / 256) 


0346 


0012 


POKE IW020A,IS8I 


0358 


0012 


POtt ;H020A t nSBI 


0368 


0012 




034B 


0012 


m sub 


036F 


0012 




036F 


0012 


m fTASEIF;27 
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• 




«** • * * m * m * 




• 




• * » * • m, • * « m mm* 




* 




• » • • • « ■* • mm m • * • « 




• 




• •* » » * « „ ^ 




• 


• 






Reagent Jet Printer P&BE 7 




Burr-Brow PCI-20O0O custoe driver 06-30-B4 








08:38:14 


6 


Offset 


Data 


Source Line »BX Personal Counter BASIC Coipiler V2.00 




034F 


0012 


•SUBROUTINE - SET. ST ROBE .DELAY 




034F 


0012 


• 




034F 


0012 


•DESCRIPTION: 


70 


034F 


0012 


The SET. STROBE. DELAY subroutine loads tht strobe delay 








one shot 




036F 


0012 


' with the desired strobe delay tin. Allowed range is .5 to 14 








,000 usee. 




036F 


0012 


• The delay paraaeter is a real ouaber in usee. 


15 


034F 


0012 






034F 


0012 


SUB SET . STROBE. DELAY (DELAY J STATIC 




0374 


0012 






0374 


0012* 


* Liait delay to io range 




0374 


0012 




20 


0374 


0012 


IF DELAY < .5 TKEH DELAY ■ .3 


035F 


0012 


IF DELAY ) 14000 TKEH DELAY « U000 




03AB 


0012 






03A8 


0012 


• Convert to count 




03AB 


0012 




25 


03A8 


0012 


COUKT « DELAY / .3 




03B4 


0012 






03B& 


0012 


' Send the derived count out to the counter 




0386 


0012 






03B4 


0012 


LSBX « IHTtCOUKT HOD 23*): * Send out U bits 


30 


03CD 


0012 


RSBI • IKTICOUHT / 234) 


03E4 


0012 


poxe iho:o&,lsb: 




03F4 


0012 


POKE 1X0201, HSB1 




0404 


0012 






0404 


0012 


EKD SUB 


35 


040B 


0012 




040B 


0012 


REh* IFABEIFiU 




0403 


0012 


'SUBRQUTIXE - DIGITAL. GUT 




040B 


0012 


• 




040B 


0012 


•DESCRIPTION: 


40 


040B 


0012 


The DIBITAL.OUT subroutine sends the passed integer to 








the output 




040B 


0012 


port 0. 




0408 


0012 






040B 


0012 


SUB 0I6ITAL. OUT (BYTE!) STATIC 


45 


0412 


0012 






0412 


0012 


• Send the byte to the port 




0412 


0012 






0412 


0012 


POKE IK0080,BYTEI 




0423 


0012 




50 


0423 


0012 


EKD SUB 




042ft 


0012 






057F 


0012 





30424 Bytes Available 
48723 Bytes Free 

0 Earning Errortsl 
0 Severe Error<s) 
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* a 



• • • A • * 



> » *» « « 



« • to 4 

a « * ^ a 



75 



20 



JO 



35 



40 



50 



55 





M Frist* 






PatUft 


Prist it) 






Whit 


lit) 


SokTti U'f 


15* Ptrto»al toaorttr 




oou 


tit ITJTU:*;tK#;t Ui rnottr' SSUTnTUrrUttra frintiM* *U*E5UIiin 


ocio 


O0J4 








0030 


0404 








oow 


0004 




-La. Carrol d 


MM 


0004 








0030 


0004 


•^TrtuxT it) ira urcn urcuutturs 


0030 


0004 








0030 


WW 


'SZVISia * 2.0 07-O7-W UZ fedlfitd (or Klcrofab rrlathitJ 
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FUttri frmttB9 

5<wrw Un It* Ptrtotil Cowalir liSIC CmUer r2 

ixptn ii.nsniv.eii 'y oHut 

FU II * 0 TO 

fw n • 0 TO 5 

ikput ii,scnmiii v ni 

KIT JI 

SOT II 
OQS£ 11 

'lit riimiif pA/mtirs 30 im irriy 

K»lU,0) » h 'ml 
1001(13,0) « h 'nlua 1 

KOU(14,0)<« Oi 'rom toicito, 

REWU3,e) • Oi 'col*** tficli? 

'rtuqr ictivt 0ii?Wyt* scrttt to serin 0 to tfnu in* tfiiiljy ptrmtiri 
SOOT 0,0,0,1*05 

caw mucus uiiittm *mm ruvras'i 
couca * 
m w to 71 

LOCATE 5,l:FMMT CX*f IIUI|ilfiU1S 3,liPWW CWl(203)pLOCATt H.hPWXT CKSlim); 

*IT I 

FOR 1*4 TO 17 

LOCATE 1,1:MUT OWf 11791 pLWATE 1,:8:PRUT CWtf UU»;:L0CAU I,34iPRljrT CWlM1141i:LflCATE 1,5 

RtKT, CWf tl7VI i 
KUI I 

ttSTWE TUIE 
FOR 1-1 TO 12 

« isn o4fo ttw n,c:,u;::^Ti n,a;pRi)fT CWMKDj 

«n i 

'disiWr U Itflv choicu u yillw 

OMR 14,0 
FCt RTWl • 0 TO 13 

WSJ1 OISFKCSU 
«JT BEWl 

'«t for first itfl« tAtry »*4 tijMifHt it 
ROW • OiCSUI 0,7 
USUI 81STOB 

*prlit Urif MWitji ml ipitrucli&M 

can io f o 

LOCATE 4,14,5-lDllR£MMt$)/::fMIT KEAXAAtt) 
LOCATE 4,41-LCT«FATMJ*En/::«llT FATXAXEf} 
50 lifO 0414 • LOCATE 4,40ifRIXT •PTvIXT ICUTlWj 

COLOR 7;iOCAT£ iV,I0:PR!HT "Ju 'pCXCR 13;NU*T DiAH27) } CHttl32)iO«ia41| 
PRUT CKRft^»;CWf(:41jCTRM3:ijC«tm>ijCOLM 7ifRM • to politic* hiobUoUH curscr»| 
LOCATE 20,l8iP2M 'Uu 'pCS.0* 13iPRUT ♦♦•jiCCLCS 7iP8tfT ■ or 'pCaOR lSirtUIT 
CDLCR hmtV to scroll urrtat nlut up or de»»j 
55 



30 





0*t* 




04 AA 


IIA3 


04 AA 


ini 


04 AC 


1317 


04AC 


13X11 


04 AC 


13E1 


04 AC 


13F0 


04AC 


1404 


04 AC 


1404 


04AC 


1404 


04AC 


1404- 


04 AC 


1420 


04 AC 


143C 


04 AC 


1438 


04 AC 


1474 


04 AC 


1474 


04 AC 


t474 


04AC 


1474 


04AC 


1411 


04AC 


1411 


04AC 


14S2 


04iC 


Mil 


04AC 


14C3 


04 AC 


1573 


0480 


153E 


0480 


* J" 


0410 


15C8 


0480 


13E4 


0480 


131V 


0410 


HJ"7 
IV 1 


0480 


1 t*)4 
IkZA 




1 in 


Of IL 


III* 


fill! 


i m 




t L1C 








1437 


0414 


1430 


04U 


1440 


0414 


1440 


0414 


1440 


0414 


IU0 


0414 


1484 


0414 


1484 


0484 


1484 


0484 


1412 


0414 


14C1 


041* 


14F0 


0414 


170A 


0414 


170 A 


0414 


1754 


0414 


1713 


0414 


17E1 


" 0484 
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6 



JO 



T5 



20 



tiiqut Jit friittf Vf*. 

c oar« Uoi firiatil Coiptttr BASIC Coioiltr V2. 

lKiH ::,*:rKIHT *U« 'jiCSUJR IStWKT 'P-jiCOUR linm 1 to prut piUin* or •] 
KU» 11:?MIT T:;C0U)R 7:rRIIT ' to uit to priot imo'j 
nW ' or •|:C0U« lSiPSWT •S'ptaLDR 7iPRIITT • to uu aowO 

'sit Kftn to ric« miu jut crtttii tod nit 

srax o.e.o.g 

RCTWI 

M$?EQRTi 

ir rami « io w rexui « u mn rctim 
prut leaniBwx.o) 

LOCATE tK&Ul WO U»2*7 I ROUOOW,« 
PR] IT USIXS REKUHiaKUI.iJiROOItKDWltOij 

RCT fPASE 





Wfftt 


Ditl 




17R 


0416 




1B3F 


$436 




1867 


CU6 




18?C 


0416 




18TC 


«*fc 


30 


!8H 


WW 


I8« 


WW 




1881 


WM 




HIS 


MM 




IGR3 


0486 




188 A 


MU 


35 


IE5E 


om 


ins 






1936 


0486 




mi 


04U 




mi 


9486 






om 



45 



60 



55 
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«0 288 237 




'ftiiqist at friBttr fisz 
Pitttfi Printit? *M7 

fttiM 

it* p»ftM#i u*pTtK iasic CMiiitr v; 



75 



20 



25 



30 



35 













wu 


'iMMiiinti uu csq u this raui£ «••«!•««• 


118F 


WW 








WW 






lfC< 


WW 


DATA 'Sol frtgwicy 


Hx*,*tl,l8l* t 10000.t,l,lA 




MM 


NT! •fcipUtsi* 


V VHP, 130.0,1, It 


ira 


WW 


WTi "Strttt Jtl»T 


oS*, Ml, 141, 1*. 1.3911.3, .3.. 3, li 


19CA 


WW 


WIT* f PuHi VWti 


• t Mtr,w,o f i t ii 


ncc 


WW 


Mil *tiu Tim 


•,Mir t ifi,o f i,ii 


19CI 


WW 


MTI Till Tin 




11D0 


WW 


54TA "l/H Sin 


U',*t.lir,.OO3,.0O3..003,<3 


1902 


WW 


DATA 'Rtftit tcont 




19W 


WW 


DATA *I Am Off »t 


i8Vl.lir,2,0 v .003,<3 


im 


WW 


DAT! *t Axil OHitt 


ii a ,*l.lir,2,0,.003 t <3 




WW 


DATA •VV t 0,0,0 






WW 


DATA ",",0,0,0,0 




19DC 


WW 


DAT! *8o» to frint 


•,Mr,W,l,l,74 


110E 


WW 


DATA 'Calo* to fr\*i 




19E0 


WW 


DATA **oi Spiciag 


ifi , l M.llf,5,O t .003,n 


mz 


WW 


DATA *CoU»a Spuing 


i& i t *Mir i :,0 l ,005 9 72 




WW 


DATA ",",0,0,0,0 




l9Ei 


WW 


DATA ",",0,0,0,0 




19EB 


WW 






\m 


WW 


TAU: 




no 


WW 


DATA 3,1,218 




in; 


WW 


DATA 3,28,210 . 




mi 


WW 


MTA : t 3i,:io 




i?n 


WW 


DATA 3,86,111 




ITT5 


WW 


DATA 5, I, ITS 




19f7 


WW 


DATA 5,28,20* 




11f9 


WW 


DATA 3,31, 2*4 




11F8 


WW 


DATA 3,80,181 




hfd 


WW 


DATA 18,1,112 




19fF 


WW 


DATA 18,28,209 




1*01 


WW 


DATA 18,34,208 




tu: 


WW 


DATA 18,80,217 




iA05 


WW 






im 


WW 


m so 




IMC 


WW 






IMC 


WW 






2041 


WW 







45 



5W24 fjXti AviilUlf 
447U 8yU» frtt 

50 

I iV&iM, irrvrii) 
I Smrt Errord) 
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Repeat* Jit Printer # * • • • - • PA8C • 1 

Reagent Filing 07-O9-B6 

15;04i33 

Offset 3aii Saurtt Lice IEA Personal Cotputer B&SIC Coapiler V2.00 

003v KCi JTITtEi'Kiacent Jit Printer' SSVBTITU: 'Reagent Filing' 

0030 OCOo *?:i'JU - **EAFIL£' Fill Hanoi ing for reagents 
0030 0036 

0030 0236 - X. A. Enevold 

0030 OCC6 

0030 <WC6 'CtfYBISrlT CCI 1TO ABBOTT LABORATORIES 
0030 0036 

0030 COCA EE7IS1GX - 1.1 03-O7-B6 XAE Addtd notes md description 
0030 CC04 ' KO 02-U-B4 XA£ Creation of initial code 

0030 COW. 

0030 0006 'STSTtfl - This code caa only be coipiled by the BASCQH 
OO30 C006 ' COT?llSt f it uill not ran under the INTERPRETER!'. 

0030 0006 

0030 0004 'fiBCSIPTItm: 

0030 0006 ' This lodule alio* (ill handling for reigents. Vhe& inv 
©red, it display! 

0030 0006 ' the current contents of the reagint directory in 4 colu 
lis o+ 20 entries 

0030 0006. ' each. The reagent «hich is currently selected for prio 
ting is earked by 

0030 W06 ' us asterisk to the left of the reagent nate. After the 

directory is listed 

0030 000© ' the user is presented «ith 5 tenu choices. The left an 

d right arrow are 

0030 0006 ' used to highlight tenu i tees and the enter key is used 

to invoke action, 
0030 ' COW * The aenu choices and their actions are: 
0030 000* 

0030 0004 ' &EIETE - Reiove i reagent file free the directo 

nr 

0030 0004 " COPY - Copy a reagent file to a new reagent n 

ue, saving the. old reagent 
0030 0904 * REKAHE - Change the naae of the reagent without 

changing the reigent itself 
0030 0006 * SELECT - Srlct a reagent tor printing 

0030 0004 * HIT - Return to the- tain tenu 

0030 WW 

0030 WO© 'DATA D1CT1CKARY 

0030 0004 • TYFEX Uhich type of valid key «as pushed 
0030 0006 ' KIWI Which sen© itee is being pointer to (0-4) 

0030 000© ' DIFF1 Distance to aove REKUX at left or right arro 

v 

0030 0406 ' FlAfil Error type 0-4 

0030 0006 * P01NTERX Position of REAKAXEl in directory list 

0030 000& ' REAXUKI Kuiber of reagent nates in directory 

list 

0036 0004 TESP1 Storace for integers during reagent copy 

0030 0006 * AS Wise, input string 

0030 WW * FUNCTI Printed at bottoi of screen during proipt fo . 

r reagent naie 

0030 0004 ' FEW! ATiS Reagent n»*e currently being worked on 

0030 0006 ' SELXAHEI Reagett nasi currently selected for printing 

0030 0006 ' FILE J rilenise of reagent oata file 

0030 0004 ' SriLES Filenaae for source reagent data file used d 
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0 268 237 



• * • • * 



Reagent 
Reagent 



Jet Printer 
Filing 



Offset 3a;a Sp«-cb Une 



mi 2 

07-09-86 
I5;0<t35 

If. Person;! Cotouter BASIC Cofloiltr V2.00 



bnnj coov 

0030 0006 ' tniEJ r tttnaie tor denination reagent data tile u 

se3 during cepy 

0030 WC4 ' VSUHWEI Xt* rn^ni nate for COPY and REHA.HE 

0030 00C6 ' TIF^I Reagent nans are held hire as thi directory 

is Seing rrnritten 

003 0 0006 * KEVFIIEJ Destination lilenaee usid while copying reao 
et»t data files 

0030 WW ' HESSAGEI A eessage printed at the bottoi of the scree 
n 

0030 OOtt ' KEKUSM,!) Array of strings containing the short and lo 

ng eenu nates 

O030 0004 ' ERRKS5* Beisage printed when any error occurs 

0030 000* ' ERRS Appended to ERRKSS* to indicate nature of er 
ror 

0030 0004 m tPASE 



Ke agent 
Reagent 



Jet Printer 
Filing 



Offset 


lata 


0030 


0006 


0047 


0004 


0047 


000* 


0040 


0006 


0034 


0008 


0054 


0008 


005F 


0008 


0069 


oooc 


0078 


oooc 


0082 


ooc: 


0085 


oooc 


OOAft 


oooc 


ooc? 


oooc 


O0E9 


oooc 


00E? 


oooc 


O0F8 


oooc 


00FC 


oooc 


OOFC 


oooc 


0100 


oooc 


0100 


oooc 



Sour ci Uoe 

RESS3ST.FJLE STATIC 
6C5U5 IKI71ALIIE 

typei • 0 

WILE TY?E1 <> 3 
AS « 

WILE Al 
VEND 



PA5E 3 
07-09-Bn 
13:04:35 

IB« Personal Coaouter BASIC Coeoiler V2.00 



ai » mzt% 

IF Ai « CHRKO) ♦ CHR*(75> TKEH TYPEl « It 
IF Af « CKRS101 ♦ CHRSC77) THEN HPEl « 2; 



•left irro* 
'right arroi 

IF At » CKRM131 THEH TYPE! « 3: 
'<cr> to txtcute selection 



OK TY?EI G0SU8 Tl, T2, T3 



VcKD 

EI IT SUB 
REM 1PASE 
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Reigent M rYinttr PASE 4 

Rtigtnt niieg 07-09-36 

15;04;35 



Off sit 


tut j 


Source Use UK Ptrswii Coicuter BASIC CoapiUr 


0100 


OOOC 


•«m«+«* SyS-rO-JTUTS fCH THIS SDSUU ««H«« 


0100 


OOOC 






0100 


OOOC 


Tit 


'iiU arrow 


0105 


woe 




T(?U « 0 


010C 


OOOC 




IF KEXUI » 0 KETUKX 


OUB 


oooe 




Dim * -i 


0122 


9010 




SEK.SSKJ . 


0128 


0010 




ftFTUKX 


012C 


0010 






012Z 


0010 




'right arrot 


013! 


0010 




TTFE2 « 0 


0133 


0010 




IF ICW: * 4 THEH RETJKX 


0147 


0010 




OIFrl • 1 


014E 


0010 




803UB SEH.KBflJ 


0154 


0010 




KETURH 


0158 


0010 






0158 


0010 


T3: 


•<cr> (execute selected ienu ite») 


01SD 


0010 




LOCATE IS^liPRIXT S?ACES(7?1; 


017A 


0010 




W SEKUI ♦ 1 60SUS i:;, T3B, T3C, no, T3E 


018F 


0010 




K33UB KEEJ.OH 


01*5 


0010 




RFTURX 


019? 


0010 






019? 


0010 


REK If AGE 
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Reage* Jit Printer - mm ~ ftASE, " 5 

Reagent Filing 07-09H36 

15:04:35 



6 


Offset 


Data 


Source lint ISA Personal Coipotir BASIC Coipiler V7.00 




0199 


0010 


T3A: 'dtlftf reaotnt 




o\n 


0010 


T7PEX * 0 




01A3 


0010 


FUKCTI.' 'Delete' 




OlflF 


OOM 


60SUB BIT, SOURCE 


10 


0185 


0014 


IF LE3UREAXAKEH « 0 THEN RETVRX 




01C7 


0018 


IF REAKAREt « SEUAKE* THEM RASX « 4:8QSUB SHOW. ERROR: 








RETURN 




0JE7 


0O1E 


BQSUB SEARCH 




OitD 


OOIE 


IF POIKTERX » 0 THEX FIABI » l:S0SUB SHOV, ERROR: RETURN 


75 


0207 


0020 






0209 


0020 


KESSASEI « 'Deleting - ♦ REAttKEt 4 • Pl, m V^it.. 

* 




0220 


0024 


• 

BOSUB KESSAEE.OX 




0216 


0024 




20 


cut 


0024 


'riwrite directory deleting REANAKEJ as indicat 








ed by P01KTHX 




0226 


0024 


KILL •READIR.OLO* 




022D 


0024 


HAKE 'READ1R.RJP' AS 'READIR.QLT 




0237 


0024 


OPEN 'READIR.OLD' FOR IKPUT AS 41 


25 


0248 


0024 


OPEN 'READIR.RJP' FOR OUTPUT AS 12 




0Z2A 


0024 






025A 


0024 


IKPUT 11, REAMUKX 




026C 


0026 


REANURl « REANURl - 1 




0275 


0026 


WRITE 12, REANURl 


30 


0284 


0026 






0286 


0026 


IF REAKUni » 0 THEM SOTO DIR. DONE 




0295 


0026 


FOR II « I TO REANURl ♦ 1 




02A4 


0028 


INPUT I LKEJ&MES 




0286 


0028 


IF IX <> PC:HTtnI THEN PRINT !2 f REAXAREf 


35 


0203 


002A 


NEXT 12 




02E5 


002A 






02E5 


002A 


DIR. DONE: 




02EA 


002A 


CLOSE 11: CLOSE 12 




02FB 


002A 




40 


02FB 


002A 


'move data file 




02FB 


002A 


FILEI * RlSHTn5TRJlP0:?lTERI) t LE«(5TR$(P0lKTERZ}J-11 ♦ 








•REA.RJP* 




031C 


002E 


na FILES 




0323 


002E 




4$ 


0323 


002E 


'reniie retaining data files to laintain linked 








list to directory 




0323 


002E 


WILE InEAKUKl ♦ 1) > POINTERI 




0333 


002E 


SFILEI • RIGHT* (5TRI (POIMTERI+U ,LEN (STRS (POINT 








ERlMM-n ♦ 'REA.RJP* 


SO 


0359 


0032 


DFILEf « RISHTKSTRf (POINTER!) ,LEN(STRf (POIHTEH 








ID-U ♦ 'REA.RJP* 




037D 


0036 


HAKE SFILEI AS OFIUf 




0337 


0036 


POINTERI « POIKTERI ♦ 1 




0390 


0036 


WEKD 


55 


0393 


0036 






0393 


0036 


60SUB RESSASE.OFF 




0399 


0036 


REAKAREI • 3EIHARE* 




03A3 


0036 


60SU8 T3DA 




03A9 


0036 


SCSUB DISP.OIR 
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70 



20 



Rwgent at Printer PftSE 6 

Recent Filino 07-09-86 

15; 04:35 

Offset D*U Source Lint IBfl Ptrsoiwl Ccwoter BASIC Coipiler V2.00 

30 

03hF 0036 RETURN 
03B3 0036 

0383 0036 REH SPA6E 



40 



45 



50 



55 
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• * „ 0 266 237. „ _ mmmm 




• 
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0 u * * *> MAW m a 0 0 * 
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Rtigint Jit fc-mtir • jftcc 7 




Re«oent Filing 


07-09-86 




Offset 

■ 




13i04tJ3 






Source Line Personal Coipater BASIC Coipiler V2.0O 




03B3 


0036 


T3B: 'copy reiqent 




0338 


0036 


TYPH * 0 




03BF 


0034 


IF REAKUM • 80 THEN FUSt « 3i50SUB SHOW. ERROR: RETURN 




03DB 


0036 


FUHCTI » •Copy' 


TO 


03E5 


0036 


EOSUB bet. SOURCE 




03EB 


0036 


IF IDWUNWGf) ■ 0 THEN RETURN 




O3F0 


0036 


G0SU8 SEARCH 




0403 


0036 


IF POINTERI « 0 THEN FLA5X « UGOSUB SHOW, ERROR j RETURN 




041F 


0036 




15 


041F 


0036 


60SUB BET.ME'J.KAflE 




0425 


0036 


IF lEHMEVKAREn ■ 0 THEN RETURN 




0437 


003A 


IF LENINEWVAKE*) > 15 THEN FLASX « 2:60SUS SH0N,ERR0R:R 








ETURH 




0457 


003A 




20 


0457 


003A 


RESSAEEl * "Cgpying ■ > REAHABE* ♦ • to • ♦ HEWAKEI ♦ 








• PUm wit..' 




047C 


003A 


. B0SU3 KESSA6E.0M 




0482 


003A 






0482 


003A 


'add nt« nm it end of directory 


25 


0482 


003A 


KILL 'REAOIR.OLO* 




0439 


003A 


KAKE •RIAOIR.RJf A3 'REAOIR.OUJ' 




0473 


O03A 


OPEN •READIR.QLO* FGR INPUT AS U 




04 A4 


O03A 


OPEX •READJR.RJP' FOR OUTPUT AS 12 




04B6 


003A 




30 


04B6 . 


003A 


INPUT 11, REANWX 




04C8 


003A 


REANUKX » REANU.1I ♦ I 




0401 


003A 


WRITE I2,P.EANU«X 




04E2 


003A 






04£2 


003A . 


FOR II « 1 TO EEMEIHI • I 


35 


04FI 


003C 


INPUT ll,TE»Pl 




0503 


0040 


PRINT I2.TE5P1 




0513 


0040 


NEIT IX 




0525 


0040 


PRINT I2,NEWNAKES 




0535 


0040 




40 


0535 


0040 


CLOSE IhCLOSE 12 




0543 


0040 






0543 


0040 


'crcitc copy cf data file 




0543 


0040 


FIUJ « RIGHT* (5TRJ (POINTER!) ,LEN(STRI (POINTER!) J-l) ♦ 








•REA»RJP* 


4S 


05*7 


0040 


NEVFlLEt « RIGHT |{STRS(REANUKX),LEN(STR${REANUKX))-i) ♦ 








•REA.RJP* 




058B 


0044 






058B 


0044 


OPEN FILE! FOR INPUT AS 11 




059C 


0044 


OPEN KEWFILE* FOR OUTPUT AS 12 


SO 


05AE 


0044 






05AE 


0044 


INPUT IIJERP 




05C0 


0048 


WRITE I2JEW: 'frequency 




0590 


0048 


INPUT I1JENP 




05E2 


0048 


WRITE I2,TEWi 'pulse Wdth 


55 


05F2 


0048 


INPUT ll,TEn? 




' 0604 


. C048 


WRITE I2.TEKP: 'strobe delay 




0614 


0048 


INPUT I1JEKP 




0626 


0048 


WRITE I2JEXP; 'nozzle 




0636 


0043 
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Reagent Jet Printer PABE 8 

Reagmt Filing 07-09-B6 

15:04:35 

OHset Oata Source Line IBK Personal Coiouter BASIC Coipiier V2.00 



063© 


0048 


INPUT I1JEKPS 




0648 


00*8 


FR1NT I2,7DIPJ: 


'concentration 


0658 


0048 


1KPUT IIJEHPI 




066A 


0043 


PRINT l2 f TlflM: 


'density 


067A 


0048 


INPUT 11 JEWS 




066C 


00« 


PRirrr I^TBIM: 


'viscosity 


069C 


0CI8 






069C 


0048 


CLOSE »i:CLOSE 12 




O&hA 


0046 






06AA 


0045 


GOSUB KE=3A6E.CfF 




06B0 


0048 


BOSUB DISP.DIR 




0686 


0043 


. RETURN 




068A 


0048 






068A 


O048 


REfl <PA6E 
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Rfuett Jtt Printer page ? 

Rtigent Fiiicg 07-O9-8& 

15;04i33 

Saurct Lint IBA Pfrionjl Cotputir BASIC Coipiler V2.00 

TCC: 'rtntar rtigent 

typex • o 

FUNCTI ■ t Rtnwt f 
busub en. SOURCE 
IP LEJUREANAKEfl » 0 THEN RETURN 
GOSUB SEARCH 

IF POINTERX ■ 0 THEN FUG! « t:60SUB SHOi*. ERROR: RETURN 

60 SUB GET. UEN. HAKE 
IF LEX tXEUHAKEf ) * 0 THEM RETURN 

IF LEKtKEWAKEN > 15 THEM FUGX • 2:G0SUB SX0¥.ERR0R:R 



Offset 


sua 


06BA 


C048 


068F 


0048 


0*Ca 


0048 


06D0 


0043 


0606 


0048 


06EB 


0048 


O&EE 


0048 


070A 


0048 


070A 


0046 


0710 


0048 


0722 


0048 


0742 


0048 


0735 


0048 


077A 


0048 


0780 


0046 


0790 


0048 


0780 


0048 


0787 


0048 


0791 


0043 


07A2 


004B 


07B4 


0048 


07B4 


0048 


07C4 


0048 


0707 


0048 


0707 


OC48 


07E4 


OOU 


07F6 


M4A 


0813 


0O4A 


0830 


00 4A 


0842 


0O4A 


0842 


004A 


0830 


O04A 


0630 


00 4 A 


0856 


004A 


0675 


004A 


087B 


00 4A 


0B7F 


00 4A 


087F 


004A 



HURN 



3DA 



IF KEHWAKEf • REAM ARE! THEM RETURN 
MESSAGES * 'Remiing ■ ♦ REAKAREI ♦ • to • ♦ NEHNAKEJ ♦ 
PI last vast..* 
60SUB NESS AGE. ON 

•rinuing rtigtnt aist in directory 
KILL 'READIR.QLfl* 

HAKE 'READ1R.RJP' AS 'REAOIR.OLD' 

OPEN 'READIR.OLD* FOR INPUT AS It 

OPEN •READIR.RJP' FOR OUTPUT AS 12 

INPUT II, REANUKX 
WRITE l2,R£ANUni 

FOR IX » 1 TO REANU'X 
INPUT II.TEtfl 

IF IX <> POiHrcRX THEN PRIKT IZJEHPS 
IF IX = POIK'E^; THEN PRINT l2,XE«HAnE* 

KEIT IX 

CLOSE IWCLQSE 42 
GOSUB KESSASE.OFF 

IF REANAKtJ = SELNAAU THEN REAXAKE* * KEUNAItEf sSOSUB T 

GOSUB DISP.OIR 
RETURN 
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*• ; 0 268 237 «* ** *> 




Reagent Jel Printer , PASt 10 


Reagent Fihag 


07-09-eS 






15:04:33 


Off si; 




»C» r Ct ^ne rrr»gn*i weipvter BfwlW LOlDiler VZ.9Q 


0S7F 




i.tf! sttfCw ri»gtni tor prioiiDg 


0B3i 


C04& 




0B8S 


C0*A 


rUAL <•> 1 HiKtX 


0875 


CvJ4 




0373 


CC*N 


tc rm/?rfivixtti x a tutu cmrpy 


08*6 






06 CO 






Ootb 


•All 




0BCL 






0600 






0800 


p*-i k 
VV4K 




OR35 


vw 




OoU5 










i 


ABF7 






090E 


0O4A 


B0SUB KESSASE.CN 


0914 


OOU 




om 


«« 


'change entry* in reagent default file READEF.R 








0914 


004A 


0FES ■READEF.RJ?* FOR OUTPUT AS tl 


0926 


W4A 


FILE* « RI6HU(STRf:PDIHTcRI),UX(5TRt(P0IKTERI))-n ♦ 






•REA^JP* 


094A 


WW 




094A 


«4A 


PRIHT 11, FILES 


095A 


ocu 


PfilNT ll^EAMKEf 


096; 


C044 




09&A 




aosE It 


0971 




to sub *essabe.:ff 


0977 


004; 


RCTURX 


097B 






097B 


004A 


T3T: 'nit ruqent filing 


O9B0 




RETUKS 


<m\ 


004; 




0984 


004A 


BIS $?«E 



BAD OWQINAL 




* * * 0 266 237 - * 

» • m m * * * a a 



Reagents Pr«\ttr 
Rugw: Filiaq 



Cffitt Ciia 



0984 
078? 
0990 
09AI 

09C9 
090: 

09F» 
OAOS 
OAU 
DAM 
0A2A 
0A31 
0h35 



OAiC 
0A7A 
0A97 
0A9B 
0A9B 
OAAO 
0AC& 
0AD4 
OAF I 
0AF5 
0AF5 



OHIO 
0B2F 
083* 

mi 

0B47 
0859 
OBW 



OBBB 
0B97 
OBCA 
OBDft 
OBEC 



COU 

ecu 

OOU 
W« 

SOW 
004A 

co;a 
ocu 
oou 
ecu 
oou 

004A 
wU 



0A35 004A 
0A3A 0O4A 



OCU 
OOU 
0O4A 
OOU 
OOU 

oou 
oou 
oou 
oou 
oou 
oou 



OAFA OOU 
OAFA OOU 
0801 004A 



004A 
OOU 
OOU 
004A 
OOU 
00 4 A 
OOU 



0869 004A 

0870 OOU 



004C 
004E 
00 4E 
004E 

oou 



OBEC 004E 

OBFA 0050 

OCOC 0C50 

0C3F 0030 

0C4C 0050 



Source Lint 

SSTCKi 



• • • » P«fr *U 

07-09-86 
15:04:35 

!5n Personal Cotoottr BASIC Coapiler V2.00 



rCIKTEEI » 0 

C5EH •READIR.RJP' FOR IKPVT AS II 

IKPUT ll^EANUKI;* git suiber of reagents io dirtc 

)F REiKUKX « 0 THEN 0.C5E IhRETURN 
TEMPI 

WILE (POIHTERI < REAM!*!) AW (R£AXW\£J <> TEKPSI 
LIKE IKPUT ll,TEKPI 
POIKTEKX • PDINTERI ♦ 1 

VEKO 

IF REAHAKEf <> TEKPS THEM POIXTERX « 0 
CLOSE tl 
RE TURK 



6ET.S0URCE: 

LOCATE 23,1 :COLOR 15,0;PRINT 'Enter Reaoent Kite to «FU 

NCT*' 

LIKE IKPUT}", REAM AKE$ 
LOCATE 25 t l:PRIWT SPACES (79); 
RETURN 

6ET.KEM.NAKEt 

LOCATE 23,l:COL0R I3 f 3;PRlNT 'Enter Ken Reiaent Kite 
LINE IKPUT; ••.nsvmahei 

LOCATE 25 t l:?RlKI SPACES (79); 5 
RETURN 



ClS?,0IR: 



'displiy rtiqent directory in 4 colmns of 20 r 



'read selected reagent into 3ELNAKEI 
OPEN •REA0EF,RJP' FOR INPUT AS II 
INPUT ll,5ELHAKEf: 'read and discard data Hie nae 



INPUT II ,5ELNAKtJ: 
CLOSE II 



'read and save reagent naae 



OPEN 'READIR.RJP' FOR INPUT AS 11 

IKPUT I 1 , REAKUKI: * read nuiber of reagents 

KESSA6ES » "Reading Reagent Directory Please Naif 

B0SU8 KESSABE.QN 

FLASl - 0 

TERPl • REANURX - 1:IF REAHUNI < BO THEN TEHPX « REAVUH 

FOR IX « 0 TO TEhTX 

LOCATE (IX HDD 201M, UNTCIX/20M20HI 
PRINT SPACES 118) j 

NEXT II 

FOR II * 0 TO REANUffl - I 
1XPUT ll.REANAXES 

LOCATE (IX ROD 20)*l, UNT(IX/20H20)*3 
PRINT RE AN WES; 

IF REANAKES *. SELNAT.ES THEN LOCATE (IX «00 20) ♦ 
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BAD ORIGINAL 

u . 



* » * 0 268 237 * * o* 

• • • » % * * « . » 
ReiOMwJek Printer T ft 
Rt*g»c; FU1&9 07-O9-B6 

13:04:35 

Offsit Dtt« Socrce Uni 115. rerioui Ccuuter 5«1C Coipiiir V2.00 

l,tlXTU:f:0)*20}*t:PF:XT -f; 

OCTB 0050 KHT II 

OCBft 0050 OCSZ 11 

0CH7 005C KE~EAoE.SfF 

OCBD 005-3 UTUK* 

occ: OOiO 

0CX1 00W WniAllU: 

OCti, 0050 QUI KHJIU,!) 

0CC7 0078 KBCWO.O) » 'Itlete' 

OCBF 0078 KEXUICO.t) « 'iiewve * reiowi file froe the dirictor/' 

OCfA M73 KEH3JC1«01 « 'C^y' 

0015 0078 RSCJICljl) * *Co?y J ni 9 «t lilt to i ne» rtigent nut 

002 CC78 lOiUlfS^I * 'Remit' 

0D4B 0078 . KEW<2,1) * 'Senile < recent file in the directory' 

00*9 0078 KE}W13,0) * 'Seller 

0DB4 0078 KESHAN * 'Select < rugent file to be printed" 

ODAO 0078 REXUIH.OI » 'Exit' 

0083 0078 K2a»H f n * 'Return to the i*in tena' 

0DD7 0078 

0007 O07B COLOJ 9,0:CLS 

ODEA 0078 LOCATE 21,1 

O0F7 0078 FGR Tl * 1 TO 80 

ODFE 0078 ffUKT 'D'; 

OEOB 0078 NEJT 11 

OEIB 0078 

0E18 0078 FOR « 0 TO 4 

0E21 0078 E3SUB «VJ. OFF 

0E27 0078 HEIT H&lfl 
0E37 0078 

0E37 0078 60SUB DUP.OIR 

0E30 0073 IF FLASX ) 0 THEX SHOW. ERROR 

0E4E 0078 KEXUI * < 

0E55 0078 53SU1 rEKU.CS 

0E5B 0078 

0E53 0078 RETUKX 
0E5F 0078 

0E3F 0078 KElf.KEKh 

OEH 0078 tOSO? KEXU.OFF 

OE&A 007B AcKJI « KEHJ1 ♦ OiFFI 

0E76 0078 HSU? KM!. CI 

0E7C 0078 RETVa 

OEBO 0078 

OEBO 0078 KEKU.ORi 

OEBS 0078 LOCATE 72 , ( ROCwZ 1 1 0) ♦ 1 8 

0E9C 007B CaOR 0,7 

OEAB 007B PRIKT K£KUSII£VJZ,Mj 

0EC6 0078 LOCATE 23,40-LEXirXXUS (r.LVUX,n>/2 

OEFA 0078 COLOR 7,0 

0F06 0078 PRINT RSKUKHEMJXtUi 

0F23 O07B RETVRX 

0F29 0078 

0F29 0078 KEHU.CFF: 

0F2E 0078 LOCATE 22, IKEXUIHOI MB 
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©AD ORIGINAL « 



«0 "268*237 



RugMUit Printer * •• * . , 

Reagent Filing 07-09-96 



Offset 


Data 


Source Lint !tt Personal Coiouttr BASIC toipiltr V2.00 


0F45 


0078 




CCLGR 14,0 


0F51 


0078 




FRIKT fle!TJf(REXUl t 01| 


0F6F 


0078 




LOCATE 2: t 40-lEK(REKUHKLm,ni/2 


0FA3 


0078 




PR1KT SPACE*aEXI«EWMnEWX t in)| 


0FC8 


0078 




RETURN 


OFCC 


0078 






OFCC 


0078 


SHOK.ERRORj 


0F01 


0078 




OM FLASX 60SUB ERl, ER2, ER3, EKi 


0FI2 


0078 




ERWSSJ * ERRI ♦ * Strike any key..' 


0FF2 


0080 




LOCATE 24 f 40-LEN(ERR!l56n/2 


1014 


0080 




COLOR 13,0 


1020 


0030 




PRINT OtfaSSI; 


10 2D 


0080 




Af « 


1037 


0080 




WILE A J « 


Iw-So 


0080 




AS » 1KXEY* 


1050 


0080 




«EHD 


1053 


0080 




60SUB KESSA6E.QFF 


105? 


0080 




RETURN 


1050 


0080 






1030 


0060 


ERh 




10W 


0080 




ERRI * REAKAREt ♦ ■ Xot Found in the Directory' 


1072 


0080 




RETURN 


1076 


0080 






1076 


0080 


ER2: 




107B 


0080 




ERRI * 'Reagent Nate is too Long (15 characters iix.) t 


1085 


0080 




RETURN 


1089 


0080 






108? 


0080 


ER3i 




108E 


0080 




ER*I » 'Directory ts Full (50 regents ux,)' 


1098 


0060 




RETURN 


I09C 


0080 






109C 


0080 


ER4: 




10A1 


OO80 




ERRI » 'Cannot Kodify EELECTd reagent Naie* 


I DAB 


0080 




RETURN 


10AF 


0080 






10AF 


0060 


KESSASE.CX: 


10B4 


0080 




LOCATI 24,38 - LENWE5SA6EIJ / 2:C0L0R U.OiPRINT KES3A 






6EI; 


IOEF 


.0080 




RETURN 


10F3 


0080 






10F3 


0080 






10F3 


0080 


KESSASE.CFFi 


10FS 


0080 




LOCATE 24,liCCLGR 15,0:PRW SPACEI<79>i ' 


.1121 


0080 




RETURN 


1125 


0080 






1125 


0080 


END SUB 


112C 


0060 






UC9 


0080 







50426 Bytes Available 
45713 Bytes Free 

0 Warning Error(s) 
0 Severe Error (si 
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BAD ORIGINAL 







0 2B§ 237 ' " • • ... 

; r I " * - - 






* • • z m 






! * ... 


Reigent 


Jet Printer * ** • PA$f.. "1 . 


Pattern 


Filing 


07-0?-86 




13:11:46 


Offset 


D*u 


Zcvrtt line UK Personal Computer BASIC Coepiier V2.00 


0030 


0006 


ITITIE; 'Reagent Jet Printer f SUBTITLE: 'Pittem Filiuq* 


0030 


OCOe 


•CDULE - •PATFILE* File Handling for patterns 


0030 


0006 




0030 


OO06 


"AU7ESR - «. ^ tnevold 


0030 


0004 




0030 


0006 


'C^YJUoHT (C) ITO ABBOTT Ui DRAT CRIES 


0030 


0006 




0030 


0006 


•RtVISICa - 1.0 02-12-B6 KAE Creation of initial code 


0030 


0O06 




0030 


0006 


'SYSTEM - This code can only be coapiled by the BASCOJl 


0030 


0006 


KXPJLER, it *ill not run under the INTERPRETER! ! 


0030 


0006 


• 


0030 


0006 


•SESDUPTIWj 


0030 


0O06 


This eodule alio* file handling for patterns. When inv 






eked, it displays 


0030 


0006 


the current contents of the pattern directory in 4 colu 






ens of 20 entries 


0030 


0006 


eich. The pattern *huh is currently selected for pnn 






ting is ear kid by 


0030 


0006 


an asterisk to the lift of the pattern naie. After the 






directory is listed 


0030 


0O06 


the tier is presented *i th 5 eenu choices. The left an 






d right arrows are 


0030 


0006 


* used to highlight eenu itces and the enter key is used 






to invoke action. 


0030 


0006 


The eenu choices ana tlveir actions are: 


0030 


0006 




0030 


0006 


DELETE - ffiote a pattern file froe the directo 


0030 


0006 


n 

COPY - C:oy i pittern file to a new pattern n 






ue, saving the old oattern 


0030 


0004 


REXAFIE - Change the naie of the pattern without 






changing the pattern itself 


0030 


O006 


SELECT - Selct a pittern for printing 


0030 


OO06 


• EXIT - Return to the itm aenu 


0030 


0006 


• 


0030 


OO06 


'DATA DICTIOKARY 


0030 


0006 


PfFEI Which tyoe of valid key «as pushed 


0030 


0006 


HEWl tihich una itet is being pointer to (0-4) 


0030 


00 W> 


DIFF1 Distance to eove REKul at left or right arro 


0030 


0CO6 


• 

FUSl Error type 0-4 


0030 


0006 


POINTER! Position of PATNAXEf in directory list 


0030 


0006 


PATKWX Nueber of pattern naaes in directory 






list 


0030 


0006 


EUOlhl Nutber of eleteots in a pattern file 


0030 


0006 


TEHPX Storage for integers during pattern copy 


0030 


0006 


11 Counter used during pattern copy 


0030 


0006 


Jl Counter used during pittern copy 


0030 


0006 


A* Rise, input string 


0030 


0006 


FUKCT5 Printed at bottot of screen during proipt fo 






r pattern ease 


0030 


0006 


PATHAKES Pittern nue currently being norked on 


0030 


0006 


SEUiAREJ Pattern naae currently selected for printing 
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Reegeet 
Pattern 



M Printer 
Filing 



PABE 2 
07-09-86 



6 


Offset 


Mi 


Scjrct Lint 


1ST. Personal Cciouter BASIC Coipilir V2.00 




0030 


O096 


nut 


FUtnaae tf pattern data file 




0039 


0C06 




Fitenaae tor source sattern data file used d 


TO 






•ring co?t 




0030 


WOi 




Filenaie for destination pattern data file u 








led tfuriotj CODY 






0030 


OOtt 


tfWA&XS 


Mt« pattern naie for COPY and REXAJIE 




0030 


ooo* 


TOW 


Pattern nues are held here as the directory 








is being re-written 


15 


0030 


COS* 


KEVFllEJ 


Destination filenaie ucd while copying patt 








in data files 






0030 


O0O4 


KESSASE* 


A image printed at the bottoi of the scree 




0030 


0006 


s 

KEKUIU, 


1) Array of strings containing the short and lo 


20 






eg tens naiet 






0030 


0006 


ERRKSSS 


flessage printed then any error occurs 




0030 


0006 


ERRf 


Appended to EKRHSSI to indicate nature of er 








ror 






0030 


0006 


TEHP 


Storage of real variables while copying patt 


25 






ere data files 






0030 


0006 


RE* SPABE 




30 


Reaaent Jet Printer 


PA6E 3 




Pattern Filing 




j07-09-B6 










'13:11:46 




Offset 


DaW 


Source Line 


IBM Personal Coeputer BASIC Compiler 72.00 


35 


0030 


0006 


TJB PATTERV.FI IE STATIC 




0047 


0006 








-0047 


0006 


6D5UB IKJT1AUZE 




• 0040 


0006 


TYPE! » 


0 




0054 


0008 






40 


0054 


0008 


WHILE TYPEl <) 3 




OOSF 


0008 




AS » *• 




0069 


OOOC 




MILE AS « " 




0078 


OOOC 




AS « IKXEY* 




O0B2 


OOOC 






45 


0083 


ooo: 




IF AS « CHRMO) ♦ CHRS175) ThTh* HPEI « It 








'left irrow 






OOAA 


OOOC 




IF AS * DttSlOl ♦ CKRS1771 THEN HPEX * 2; 








'right arrow 






OOCF 


OOOC 




IF At « CHRSU3) THEM TYFEI « 3: 


60 ■ 






•<cr> to execute selection 




00E9 


OOOC 








OOE9 


OOCC 




OX TYPE! 60SU8 Ti, T2 t T3 




OOrB 


OOOC 


VEND 






OOFC 


OOOC 






65 


OOFC 


OOOC 


EXIT SUB 




0100 


OOOC 








0100 


OOOC 


REn SPASE 
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J6§ 237 



t % 



Reagent Jit Printer PAGE 4 

Pattern Filing 07-09-€fc 

13:11:U 



OffSBt 


uu 


Source Lint IW Personal Cooouter BASIC Coioiler 


0100 


oooc 


-ihiim* SUB-ROUT IKES Fun THIS KODUIE H4HMI 


0100 


ootc 






0100 


oooc 


Ti; 


•left irro- 


0105 


oooc 




msi » o 


010C 


wet 




IF HEWJI » 0 THEN RETURN 


011B 


ooce 




sim « -i 


0172 


W10 




GCSUB HEV.KENU 


012B 


0010 




RETURN 


012C 


0010 




i 


012C 


0010 


T2; 


'richt arro* 


0131 


0010 




TYFEI * 0 


one 


0010 




IF REHUI * 4 TEEM RETURN 


0147 


0010 




DIFFI « 1 


OUE 


0910 




6QSUB NZH.KENU 


0134 


0010 




RETURN 


oj:b 


O010 






0128 


0010 


TZ: 


Xcr) (execute selected una itet) 


015D 


0010 




LOCATE 25,lsPBm SPACE! (79); 


017ft 


0010 




ON HEKUX 4 1 SCSIB TJA, TO, T3C, T3D, HE 


oiar 


0010 




60SUB RENU.OK 


0195 


0010 




RETURN 


019? 


O010 






0199 


0010 


m SPABE 



72 













•*•* 2 I * m m * * 


Ritgint M ?rufttr * •* • PA5L ? 


Patttro riiiR9 


07-09-86 






!5;lii46 


Offitt 


Diti 


Ssurcf Lint IBS Per 1001I Coiouter BASIC CwDiltr V2.00 

- 


0199 


S0:0 


T3Aj tfiittt jittera 


019E 


0010 


ryts » 0 


01A5 


0010 


r vrrt * 'b»i»t»* 


01AF 


00U 


3^SUB cET.SORCE 


0155 


OCM 


:f io<(PAT«rin • 0 then return 


01C7 


05XB 


\t PATV^I « SEUvAKU THEN FUSI « '*:60SUB SXOV.ERRQR: 






fETOX 


01D 


OOlt 


c23U8 search 


OlED 


C01E 


If FGIXTin • 0 THE* FU5I « liGOSUB SHW, ERROR: RETURN 




0020 




0201 


0020 


KESSAoEl » 'fieletiao, • ♦ PATUAKEt ♦ » Plmt Miit,. 


0220 


0024 


SCSUB nSSASE-M 


0224 


0024 




022* 


©024 


'rt*rit» dirtctory deleting PATXAKtl ts indicat 






ed by FOIXTERZ 


0226 


0024 


CIll •PATTIIR.CU' 


022D 


0024 


KAHE 'PATOIR.RJP* AS •PATDIR.OIO' 


0237 


0024 


OPEN •PATOIR.OLO* FOR INPUT A3 11 


0248 


0024 


0PE)i 'PAT01R,RJ?' FOR OUTPUT AS 12 


025A 


0024 




023A 


0024 


IKPUT It, PATKUH1 


026C 


0026 


PATttHX * PATXUW - J 


0275 


0026 


W1TE l2 t PATNUKX 


0286 


0026 




0234 


0026 


IF MTKffiX * 0 1X£H 60T0 01R.DQXE 


0175 


0026 


for n * t to p;:xuki ♦ 1 


02A4 


0028 


JKPUT IK? ATVAKEJ 


02P6 


0022 


IF II n POINTER! THEN PRINT I2,?ATNA«ES 


0203 


002A 


KEIT II 


02E5 


002A 




02E5 


002A 




02EA 


002A 


acsc luaosi 12 


02TB 


COW 




02F8 


007A 


'move dita lilt 


02FB 


C02A 


FIU$ * RI5HTlCSTRICPOWTERX) f LEH(STR$(?0IHTtRX))-H ♦ 






'FAT.RJ?' 


03lt 


002E 


till FilEl 


0373 


007E 




0323 


002 


Vinut retaining data tiles to uintiin linted 






list «ith dirtctory 


0323 


©02E 


WILE (PATKUKX ♦ 1) > POIHTERI 


0333 


002E 


SFIUt = RTEKTf (STRI tPOlWTERI+1) ,IEN (STRI (POINT 






ERXMD-11 ♦ •PAT.RJP* 


0359 


0037 


DfllEX » RIGHTS (STR*(PQIN7ERXI,IENISTR$ (POINTER 






XD-1J ♦ 'PAT.R*?* 


037* 


003* 


NAKE 5FILEI AS DFilES 


0387 


0036 


pointer: « pointer: ♦ i 


039C 


0036 


NEW 


0393 


0036 




0393 


0036 


E3SU8 JESSA6E.0FF 


0399 


0036 


rATH^ES » SELUAREI 


03A3 


0036 


SOSUB T30A 


03A9 


0036 


50SU8 OISP.DIR 
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«02$8»237 



Reiotnt Ui Printer P«E 6 
Pittera Filiog 

ISslliU 

Offset Dita secret Lire IBH Personil Couuter BASIC Coiciler V2.00 

03AF «3o RTTUSH . 1 
03B3 003* 

03B3 PC3c SES SP*oE 



74 



-8 268 237 . 

: : : . . 

* - » » 

, 

ISsUiU 

IM PiriMil Cocputir BASIC Coioilir V2.00 





0373 


0C3* 


TH: ':e?y fif.irn 




03B? 


0O34 


TYPH » 0 




03Bf 


003i 


IF PATKUW « 80 THEK FUSX » 3:60SUB SKO¥.ERRuRj RETURN 




0306 


003* 


FyXU * 'Copy* 


TO 


03E3 


003i 


8CSUB EH. SOUSE 




03Q 


033i 


IF UXlPATWUIEfl ■ 0 THE* RETURN 




C3H 


0034 


80 SUB SEARCH 




0403 


0034 


IF P0IXTEKX « 0 THEN FU8X * hBOSUB SHOW. ERROR :RETURH 




041F 


003* 




75 


04ir 


v03*' 


RS'JB 8FT.VcV.NAKE 




0425 


002i 


IF lOHNEYKAICI) » 0 THEM RETURR 




0437 


0C3A. 


IF LEH(XEWAXSJ) > 15 THEM FU6I * 2:B0SU3 SHOW. ERROR: R 

STORK 




0457 


003A 




20 


0437 


003A 


KESSASIS » 'Copying • ♦ PATRAAE* ♦ • to • ♦ NEVNAHEl ♦ 

• PUlSt Hit.,* 




047C 


003A 


K3UB nESSA6E.GR 




04B2 


0G3A 






0482 


0O3A 


'add KE WARES it end of directory 


25 


, 04B2 


*03A 


KILL •PATDIR.QLD' 




048? 


W3A 


HAKE 'PATOIR.RJF' AS "PATSJR.CLD* 




0493 


003A 


C7EK ■PATOlR.CLu' FUR !KW AS 11 




04A4 


W3A 


CPEX 'PATOIR.WP' FOR OUTPUT AS 12 




0486 


003A 




00 


04B6 


003A 


1XPUT 11 1 PATXURX 




04C8 


M3A 


PATOUHX « FA7KURX ♦ 1 ! 




0401 


053A 


VRITE I2,?ATVUXI 




04E2 


MZA 






04E2 


WW 


for ]i * i :c umcxi - i 


35 


04F1 


003C 


IKPUT IS JEWS 




0503 


0040 


FRJK7 IZ/EKPI 




0513 


0040 


an iz 




0325 


0040 


PR1KT l2,XcKKAREf 




0535 


0040 




40 


0535 
0343 


0040 
0040 


CICSE II :CLCS£ 12 




0343 


0040 


*cnm copy of patttru data lilt 




0343 


0040 


FILES * RISHTS t STRS (P01NTERX1 ,LENISTRJ (POINT ERX) ) -1 1 ♦ 
•PAT.RJP* 


45 


05i7 
05B8 


0040 
0044 


KEHFREJ » R I SKT f (STRS (F ATNUKZ) , LEK (STRS IP ATKUKX) ) -1 ) ♦ 
•PAT.WP' 




058B 


0044 


OPEX FILE* FOR IKPUT AS 11 




059C 


O044 


CPE* Kfrf FILES FOR OUTPUT AS 12 


50 


05AE 


0044 






OSAE 


0044 


IKPUT 11,0X311 




05CO 


004* 


RITE I2.ELXWI 




0501 


0046 






0501 


0046 


FGR IX * 1 TO 4 


55 


0308 


0044 


INPUT IIJEAP 




03EA 


0C4A 


KITE I2JEKP 




05FA 


004A 


REIT IX 




OfcOA 


004A 






060A 


004A 


FOR IX - I TO EUAJKX 



BAOOffiQINAL 



R«9ir.t Cit Pr;*Ur * 

Patttro Fiha? 

Ollitt Data SMrct u» 

6 







• 

• 
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• 


• <* 


* * * - . ; ; ; 

: : • ; : 




Reagent Jst Printer * 






Fittero Filing 




07-O9-86 










15:11:46 


6 


Offset 


DiU 


Source lint IE* Ptrsoml Couattr BASIC Coepiltr V2.00 




0617 


004C 




FOR JI ■ I TO 6 




OME 


004C 




INPUT II, TEMPI 




0630 


004E 




NRITE I2 f TEMPI 




0641 


004E 




NEXT JI 


10 


0651 
0663 


0050 
0050 




HEIT IX 




0663 


0050 




m netr 1 1 • pi ncr *t 
ClQSt inCUJit 12 




0471 


0050 








0671 


0C50. 




f nrii^ IfPMfAC"* HC1T 


15 


0677 


0050 




PUdUs DISr.OIR 




067D 


0050 




RETURN 




0681 


0050 








0681 


0050 


T3C: 


'renin pattern 




0686 


0050 




iTFt* * 0 


20 


068D 


0050 








0697 


0050 




buSUB 5tT, SOURCE 




0690 


OOSO 




IF LEHIPATNANES) • 0 THEN RETURN 




06AF 


0050 




505UB SEARCH 




06B5 


0050 




IP POlNTtRl » 0 THEN FLA5I « l:60dUB SHOW. ERROR: RETURN 


25 


06D1 


0050 








0601 


0050 




S0SUB SET.NE¥.NAr,E 




0407 


0050 




IF LEXCKEVXARESI » 0 THEN RETURN 




06E9 


OOSO 


eturh 


IF lENlNEVNAAES) ) 15 THEN FUSZ * 2:60SUB SHQ«.ERR0R:R 


30 


0709 
071C 


0050 
0050 




IF KEN NAMES » PflTHAHE* THEN RETURN 




071C 


0050 




MESSA5EI « 'Renaiing • ♦ PATKAHE* ♦ • to " ♦ KEVHANES ♦ 










PI use Mil.." 




0741 


0050 




GOS'JB 


35 


0747 


0050 








0747 


0050 




'change saltern naie in directory replacing PAT 








HAKE* with XEVKAKEf 




0747 


OOSO 




KILL •PATDIR-OtD* 




074E 


0050 




NAME •PATOIR.RJP' A3 •PATDIR.0UT 


40 


0738 


0050 




OPEN •PATDIR.QLiT FOR INPUT AS tl 




0769 


0050 




C?EN 'PAT0IR.RJ?' FOR OUTPUT AS 12 




077B 


0050 








077B 


0050 




INPUT 11, PATNUMI 




0780 


0030 




NRITE I2,PATKUMI 


45 


079E 


0050 








079E 


0050 




FDR IX ■ 1 TO PATNUMI 




07AB 


0052 




INPUT I1JEMPI 




07BD 


0052 




IF II <> POIKTERI THEN PRINT I2.TEKP* 




07DA 


0032 




IF II » POIKTERI THEN PRINT I2,NENNAHES 


SO 


07F7 
0809 


0052 
0052 




NEIT II 




0809 


0052 




a03E IhCLQSE 12 




0817 


0052 








0817 


0052 




60SU8 MESS A6E. OFF 


55 


081D 


0052 








OBID 


0052 




'select new oattern nue if necessary 




081D 


0052 




IF PATNAHE* « SELNAHE* THEN PATNAJ1EJ * NEHNAMEf:60SUS T 








3DA 




083C. 


0052 




B0SUB DISP.DIR 



76 
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PtagtRi Jit Prmiir 
Pattiro Filing 



Offsit lata 
084* 0052 

08U 0552 



Source Lir.i 

FiTimX 
REh* IPA5E 



PAGE 1 
07-09-86 
ISs'UtU 

Perionil Coaouter BASIC Coioiler V2.00 



Reagent Jit Printer 
Pattern Filing 



T7D: 



WT Tllv 


Uc ll 


ARii 
vO**0 


Art ^5 


QPiR 






OU J* 




vvix 






VP/ ^ 




WOO/ 










Art r< ) 


0897 


0052 


0897 


0052 


0B9C 


0052 


08A2 


0052 


08SE 


0052 


OSSE 


0052 


0605 


0052 


080B 


0052 


050B 


0052 


08DB 


0052 


0BE0 


0052 


091! 


0052 


091! 


0052 


0921 


0052 


0931 


0052 


093! 


0052 


0938 


0052 


093E 


0052 


0942 


0052 


0942 


0052 


0947 


0052 


094B 


0052 


0948 


0052 



PAGE 10 
07*09-86 
15:I1;46 

IB* Personal Coe-puter BASIC Coioiler V2.00 



T30A: 



JP 



'select pattern for printing 
TTfPEX « 0 
FUNCTS * 'Select* 
G0SUB SET.SDURCE 

IF LEN(PATHAKSf) • 0 THEN RETURN 
IF PATNMEf » SEUiAflES THEK RETURN 
B0SUB T3DA 
6QSU8 DISP.01R 
RETURN 



GQSU3 SEARCH 

IF P0INTERI • 0 THEN FUSI • hGOSUB SHOW. ERROR: RETURN 
RE3SASES * 'Selecting ■ ♦ PATHAhXI ♦ • PUase lUit. 

gosub hess;be.on 

'change entrys in pattern default file PATDEF.R 



OPEN 'PATDEF.RJP' FOR OUTPUT AS II 
FILES » R!6HTltSTR$(P0IHTERX) f LEJI(5TRJtP0l8TERlH-l! ♦ 
•PAT.RJP- 

PRIHT tl,FltEf 
PRINT ii.patkahei 

CLOSE tl 

GOSUB RESSAGE.CFF 
RETURN 



T3E: 
Reft JPA6E 



'exit pattern filing 
RETURN 



BAD ORIGINAL 

i 



ion 
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ftu$eat 4rt Printer Pfftf \\ m 

Pitttrp filtflg 07-09-86 

13:lh46 

Source Lice 163 Perwoal Coeputer BASIC Coioiler V2.00 

SEARCH; 

POIWTEKI « 0 

FEB 'PATDIR.RJP* FOR IKPUT AS II 

IK?UT ll,PATKU?a:' git oaibir of pitttroi io dine 

IF PADOJia « 0 DO CLOSE IhRETUJU 
TOTI « •• 

WILE (POIKTERl < PATNUHI) AW) (PATXAAEI (> TEWS) 
LIKE IKPUT ll.TOTt 
POIKTERI * POIMTERI ♦ I 

KEKD 

IF PATHAKES <> TEKPS THEK POIKTERl « 0 
aOSE II 
RETURN 

ET.SOCRCE* 

LOCATE 23,1;C0L0R 13,0:PRINT 'Enter Pattern Kate to 'FU 
VCTJ- '$ 

LIKE IKPUT; ,f ,PflTHAHES 
LOCATE 25,1:FR!NT SPACE$(79)j 
RETURN 

6ET,VE¥.HAHE: 

LOCATE 25,1:C3L0R 13,0:PRW 'Entir New Patttrn Nut 
LIKE IKPUT; ".SEWMUIEt . i 

LOCATE 25 t i;PR;KT SPACEK791; 
RETURK * 

MSP.OIR: *disjU* directory in 4 coluins, 20 ro«s 

Vfjo e«* 4vrl t pattern nate into SEIKAJIES 

opev 'PftTser.r;?' for wut as 11 

IKPUT ll t SELKAKE$: 'discard data rile nue 
INPUT II t 5EVKARcl 

close II 

cpex •patoir.r;p' FOR INPUT AS II 
IKPUT I^PATKUW:' read nuiber of patterns 

KESSASEJ * 'Reding Pattern Directory Pltase Beit' 
60SUB RESSA6E.0N 
FLA61 ■ 0 

TEKFI * PATRUKI - 1: IF PATVJHX < 80 THEH TEKPI « PATKUH 

1 

FOR 11 » 0 TO TE«?X 

LOCATE (II ROD 20W f UKT(II/20M20)*1 
PRINT SPACES (18); 

KEIT II 

FOR II « 0 TO PATKlim - 1 
INPUT ll,PATNAKSI 

LOCATE (II nOO 20m t (IKTUI/20M20)*3 
FR1NT FAINAJlEf; 

IF PATMAnES * SEUiARE* TKEH LOCATE (II WOO 201* 
1 , (IHT(ll/2GM20)«i:PR!NT M'j 



Offset 


DeU 


0945 


0032 


0930 


C037 


0937 


0032 


0968 


0032 


097A 


003J 


0990 


0052 


099A 


0032 


09C2 


0032 


09CF 


0052 


0908 - 


0052 


0908 


0032 


09F1 


0052 


09F6 


0052 


09FC 


0032 


09FC 


0052 


0A01 


0052 


0A33 


0052 


0A41 


0052 


0A5E 


0052 


0A62 


0052 


0A62 


0052 


0A67 


0052 


OABO 


0052 


0A9B 


0052 


OABB 


0052 


OABC 


0052 


0A8C 


0052 


0AC1 


0052 


0AC1 


0052 


OA02 


0052 


0AE4 


0052 


0AF6 


0052 


OAFD 


0052 


OAFD 


0052 


OBOE 


0052 


0820 


0052 


0B20 


0052 


0B2A 


0052 


0B30 


0052 


0BJ7 


0032 


0B52 


C052 


0B5E 


0054 


0B91 


0054 


0BA1 


0034 


0BB3 


0054 


0BB3 


0054 


0BC1 


0036 


0BD3 


0056 


0C06 


0056 


0C13 


0036 



78 
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StaotDt M Print* " ' pier 

Pitttrn Fihn 9 07 ^ B6 

«*, > * I5iUi«* 

Offstt Eat* Sourct Lint m Personal Coaouttr BASIC Cotpiler 72,00 

ou2 ocu sett i; 

0C77 OOtt CLOSE II 

0C7E 005A 6Q5UB AESSJSE.OFF 

0C84 0034 JSTUW 

0C8B 0054 

ocae ©ess :s*iuali2£: 

ocbo 0054 Ms aewj*u,ii 

OCBE M7E lt&KUt(O v OI « 'Delete' 

OCA* CC7E KEWKO,!! • 'Reeovt a pattern file froi the directory' 

0CC1 CCTc KDOIftLOI « •Copy' 

OCOC C07E ISMJSU,!! * 'Copy *a pittirn fill to * ne* pattern out 

0CF3 007E REKUf (2,0) ■ 'Renaie' 

0012 KEW*l2,n » 'Renaie a pattern file in the directory- 

0030 007E K£WW3,0) « 'Select' . 

0D4B 0071 R£KUt(3 t il « 'Select a pattern file to be printed* 

00*7 007E HEKUIM,0) • 'Exit" 

0D82 0O7E KWI$W,11 » 'Return to the tain tenu' 

009E 007E 

0D9E 007E COLOR * ,0:0.5 

ODBl 007c LOCATE 21,1 

ODBE 007E FOR II » 1 TO 80 

O0C5 O07E FRIH7 

0002 007E REIT IX 

0DE2 007E ; 

O0E2 007E FOR hEXUX « 0 TO < . 

OOEB 007E 60SU8 PEHU.OFF 

ODEE CC7E NEIT HEXUX 

OOFE 007E 

OOFE 007E E0SU3 DISP.DIR 

0E04 007E IF FLA6I > 0 Tr.-K 60SUB SHOW. ERROR 

0E13 007E REKUX « 4 

OEIC , 007E B0SU8 HEWJ.OH 

0E22 007E 

0E22 007E RETUR* 

0E26 007E 

0E2* . 007E KEK.XEWi 

0E2B 007E BO SUB KMJ.CFT 

0D1 007E KEXUl * AEXUX ♦ OlFFI 

OEjO 007E 60SUB AEKU.OH 

0E43. 007E RETURN 

0E47 007E 

0E47 007E REW.Q*: 

0E4C 007E LOCATE 22,(nD<UIH0)*lB 

0E« 007E COLOR 0,7 

OEoF C07E FRIKT KENU$(KEHUI,0) ; 

OEBO 007E LOCATE 23 l 40-LEM(KEKUmENUl,l) 172 

0EC1 007E COLOR 7,0 

OECD 007E PSIXT KENUtlKEHUX,!) ; 

OEEC 007E RETURN 

OE70 007E 

OEFO 007E r.EM.OFF: 

0EF5 007E LOCATE 22, WEHUIi 101 HB 

OFOC 007E COLOR 14,0 
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Offset 


Data 


Scorer Lint IBA Personal Caiooter BASIC Cotpiler V2.00 


0FI8 


007E 


PR1KT K£WJ(h3Ul f 0); 


on6 


007E 


LOCATE :3 f 40-l£HI«XUI(htXUI,l)J/2 


0F6A 


007E 


PRINT SPACtflUKtBESlUWEXUX,!))); 


0F8F 


007E 


RETURN 


0F93 


0071 




0F93 


007c 


SHW.ERRCRl 


0F9B 


007E 


OK FLA 81 eOSUB ERl, ER2, ER3 f ER4 


0FA9 


007E 


ERRASSJ » ERR* ♦ ■ Slrikt uy key.,' 


0FB9 


0086 


LOCATE 24,40-1^X^1(5611/2 


OFDB 


00B6 


CDU3R 13,0 


0FE7 


0086* 


PRINT ERMSSI j 


0FF4 


00B6 


A$ * 


OFFE 


0086 


WILE AS « " 


1000 


O0B6 


AS « IWXYf 


ion 


0066 


VEKO 


101A 


0086 


60 SUB KESSA5E.0FF 


1020 


0056 


RETURN 


1024 


0086 




1024 


0086 


ERl; 


1029 


0086 


ERRS » PATKAKES ♦ 9 Not Found in the Directory* 


1039 


0086 


RETURN 


1030 


0086 




1030 


0086 


ER2: 


1042 


0086 


ERRI '» 'Pattern Nait is too Long (15 characters »«.)■ 


104C 


00B6 


RETURN i 


10S0 


0086 




1030 


0066 


ER3: 


1035 


0086 


ERRI s 'Oirectory is Full (80 patterns iu,)' 


105F 


0086 


RETURN 


1063 


0086 


*. 


1063 


0066 


ER4: 


1068 


0086 


ERRI * 'Cannot HoOify SELECT d pattern Mate' 


1072 


0066 


RETURN 


1076 


0086 




1076 


0086 


KE5SA5E.CXJ 


1078 


0086 


LOCATE 24,39 - LSUKESStoEl) / 2:CCLCR U,0:PR1NT NES3A 






6Elj 


10B6 


0086 


RETURN 


iOBA 


0086 




108 A 


0086 




IOBA 


0086 


XESSA6E.. OFF i 


108F 


0086 


LOCATE 24,i:C0LM 15,0:PRIMT SPACES (79) ; 


10EB 


0086 


RETURN 


10EC 


0086 




10EC 


0086 


END SUB 


ion 


0086 




1688 


0086 





50426 Bytes Available 
45670 Bytes Free 

0 Warning Error (s) 
0 Severe Errcrls) 



80 
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Reagent Jet Printer ** " PAK- *1 - 

Kain Lint Codi 07*09-86 

15:27t04 

Of f sit Data Source tint IBM Personel Coaouter BASIC Coapiler V2,00 

C030 0006 RCT IT1TLE: 'Reagent lit Printer* f SUBTITLE: 'Rain Lint Code* 
0030 0006 

0030 0004 MODULE - 'RAIN' 
0030 0004 

0030 0006 'AUTHOR • K, A. Enevold 
0030 0006 

0030 0006 'COPYRIGHT (C) 19B6 ABBOTT LABORATORIES 
0030 0004 

0030 0006 'REVISION - 1.1 02-19-86 KAE Add notes and revise TYPEX rtsetin 
9 

0030 0004 ' - 1.0 02-H-B6 NAE Creation of initial code 

0030 0006 

0030 0006 'SYS TEH - This code can only bt cotpiled by the 8ASCW 
0030 0004 ' CQnTllER, it will not run under the INTERPRETER!! 

0030 0006 

0030 0006 'DESCRIPTION 

0030 0006 ' This is the tain controlling aodule for the Reagent Jet 

Printer. 

0030 0004 1 It dispUys i oenu in table fort that allows 6 function 
s to be 

0030 0004 • selected. PA77ERK OEFIHITIOH allots the user to define 
patterns 

0030 0006 • to be printed. PATTEaH PILING lets the user delete, co 
py, renaae 

0030 0004 * and select patterns ior printing. REAGENT CALIBRATION 
pereits setting , 

0030 0004 ' of operation parateitrs for difftrent reagents. REASEN 

T FILTHS is 

0030 0006 * the sate as pUUrn tiling. PRINT1NB PRINT prints the 

selected 

0030 0004 ' pUtero nUh the selected reagent. SYSTEM ElIT TO DOS 

ends the session. 

0030 0004 ' Using up and down arrow keys let the user eove through 
the ienu and 

0030 0004 * the Enter <cr> key activates the selection. 
0030 0004 

0030 0004 'DATA DICTIONARY 

0030 0004 * . AEWX This value represents the current tenu 

itet (0-5) 

0030 0004 * RENUf(5,U String array for displaying tenu iteas. 

4 rows by 2 coluus 

0030 0004 ' Each row corresponds to a tenu ittt to- 

3) 

0030 0004 ' First colutn is short tenu nue in high 

lighted area 

0030 0006 ' Second colutn is long description displ 

ayed at eenu bottoa 

0030 O004 ' KROVXC5) This array storts to row in hhich the § 

hort ienu oate till be displayed 
0030 0004 ' Dim This value is used it change KOHJZ in r 

esponse to arrow keys 
0030 0004 ' TYPEX This value is set based on which valid 

key is pressed 

0030 0006 * 0 « No valid key. I * U? Arrow. 2*0 

B1 




R#*oent Jet Printir p^gj 2 

JUin Line Code 07-09-86 



5 






15:27:04 




Offset 


Date 


Sourci line UK Personal Coaouter 8ASIC Coaoiler V2.00 








own Arrow. Z « <ct>. 




0030 


OO06 


TOTX Used to store h£KUZ while screen is ref 


70 






rtshed 


0030 


0006 


As Used to store single input keystrokes 




0030 


0006 


CS Used to store special graphics characte 








rs used in drawing the eenu table 




0030 


0006 


II Counter used to refresh display 


T5 


0030 


0006 


RX Row in which special graphics character 






is disolayed 




0030 


0006 


CI Colutn in which special graphics charac 








ter is displayed 




0030 


0006 


RE* 1PASE 


20 










Reaoent 


Jet Printer PAGE Z 




Rain tme Code 


07-0VB6 








15:27:04 


25 . 


Offset 


Date 


Source Line 1BX Personal Coiouter 8ASIC Conpiier V2.00 




0030 


0C06 






0030 


0CC6 


•JUio-Hne coie for RJP Reageni Jet Printer 




0030 


0006 




0030 


0006 


ISAIX.UXE. COSEs i 


30 


0030 


OC06 






0030 


0006 


ESUB INITIALIZE 




00O 


0096 




• 


00« 


00C6 


WILE HPEX <) 3 




0056 


00C3 




35 


0056 


WC8 


TYPEI = 0 




0050 


0008 


A* « " 




0067 


oocc 


WILE A$ « 




0076 


oooc 


A$ * IKKHI 




0060 


oocc 


VEXO 


40 


0093 


oocc 






00S3 


ccoc 


IF A$ « CHRJIO) ♦ CHRJ172) THEK TYPHI » W 








op erro* 




00A8 


oocc 


IF AS * CHRJtO) ♦ CHRJ(80> THEK TYPEI * 2:' 








down arro* 


45 


oocc. 


000c 


IF A J • CHRK131 THEK TYPEI » 3:' 








(cr> execote cooeaod 




00E7 


oocc 






00E7 


000c 


CX TYPEI 503UB 11,12, T3 




O0F6 


oooc 




50 


O0F6 


000c 






OOFfi 


oooc 






OOFA 


oooc 


as 




0101 


oooc 


COLOR 7,0,0 




0112 


oooc 


SYSTEM 


55 


0116 


oooc 






0116 


00c: 


RE* IPASE 



82 



. *6 2B§ 237 



Eaifcat .'at Printir p«£ 4 

Main Line Code 07-O9-B& 

13:27:0*. 

Offset Data Source lint JM Pericnal Coiputir BASIC Coeojler V2.00 



0116 


oooc 


'•Hum SUB-SCUT IKES FOR «AIW PR06RAJI 


oiu 


000c 


Tl: 


'up arrow 


01 IB 


oooc 




IF HEHUI » 0 TKEX RETURN 


0 J2A 


000E 




diff: « -1 


0131 


0010 




GOSUB KEV.AEKU 


0137 


0010 




RETURN 


0138 


0010 






013B 


0010 


T2: 


'down arrow 


0140 


0010 




IF REXUI * 5 THcH RETURN 


014F 


0010 

W 4 V 




DIFF1 • 1 


W l JO 


0010 

WW 1 W 




60SUB KEV.HEN) 


015C 


0010 




RETURX 


01 to 


0010 






0160 


0010 


T3: 




0io5 


0010 




ON REKUl ♦ 1 60SUS T31, TO, TO, T34, TO, T36 


one 


0010 




IF KENUI ( 5 THEN TYPEI * 0( ' reset TYPEI jo prograi 






won't end 


013E 


0010 




SCREEJi 0,0,3,3 


01A5 


0010 




RETURN 


01A? 


0010 






01A9 


0010 


T31: 


'pattern definition - 


01AE 


0010 




CAU PATENTRY: 'in aodule PATENT \ 


018A 


0010 




BtJSUB REFRESH 


01C0 


0010 




RETURN 


01C4 


0010 






0IC4 


0010 


TO: 


'pattern filing 


01C© 


0010 




SCREEN 0,0, 0,0: CIS 


01E5 


0010 




CALL PATTEM.FILE: 'in todule PATFILE 


0 IF 1 


0010 




RETURN 


61F5 


0010 






61F5 
vir w 


VWiW 


T33; 


'reagent calibration 


01FA 


0010 




CALL REASENT.CALIcSATE: *in todule REACAL 


o:oi 


0010 




RETURN 


020A 


0010 






020A 


0010 


T3<; 


'reagent filing ienu 


020F 


0010 




. SCREEN 0 f 0,0,0:CLS 


0228 


0010 




CALL REA5ENT.FILE: 'in aodule REAFILE 


0237 


0010 




RETURN 


023B 


0010 






023B 


0010 


nsi 


'print pattern 


0240 


0010 




Wa PATPRINT; 'in module PATPR1NT 


024C 


0010 




RETURN 


0230 


0010 






0230 


0010 


T36: 


'eiit systei, don't reset TYPE! 


0233 


0010 




RETURN 


025? 


0010 






0259 


0010 


RER SPASE 



83 



Seicent Jet Printer * * * * j> w \- 5 

Rain Lint Cotft 07-09-S& 

I5:27i04 

Off si; Cata Swct Uni IBR Personal Cciputfr BASIC Cowiler V2.00. 

0239 0010 G;/*.*ECJ: 

023E OOIP C£UB KSW.OFF 

0264 OflJO IZKSl * OUI ♦ Dim 

0270 0010 60SUB REW.OX. 

027s oojo sctvrx 

027S 0010 

027A 0010 INITIALIZE; 

027F 0010 CALL PCI.IKI7 

02SB 0010 

02BB COlo * tfefUt ao<J UHialixt arrays 

028B 0010 Din KROTI15) 

028C 001C IWWXIO) ■ 4 

027E C01C KR0«U) * & 

02B1 001C rawiai « 10 

02M ooit mntz) « 12 

02D7 001C I7.DTKI) « U 

02£A 00IC KSOtttf) « 20 

02FD 001C 

02FD ooic m ramies, » 

02FE 004C RESTORE HDiU.STRlK6.DATA 

0303 0MC FCH II • 0 TO 5 

030B 004C READ nENU*<ll f 01 l KBIU$ 111,1) 

033B OWE l£I7 II 

0348 004E 

034B OWE ' set initial valuts into variable* j 

034B 004E TY?H * 0 

0352 004E ttVJX * 0 

035? 004E 

035? OWE BEFKE5H: 'redraw jcreen aae sisMiebt current aenu selection 

035E 004E 

033E OWE S:?EEK 0,0 ,0,0*15: CCLS?. 7,0,0 

03SB OWE LCCATE l0 f 32;FR:KT "Loading Wenu • 

03A5 WE SCFEEH 0,0,3,0:015 

03C2 004 E 

03C2 OWE 

03C2 004E CBLDK 13,0 

03CE W4E LCCATt 1,35 

03DB OWE PRINT 'REAEEKT JET PRINTER"; 

03E3 004£ CClCR 10,0 

03F4 004E LOCATE 5,2i 

0401 C04E FSIKT 'PATTERN" 

040E 004E UttTE.il, 2k 

04 IB 004E PRINT •R£ABEXT # 

0428 004E LOCATE U.26 

0435 O04E PRINT •FP.IHTIKS' 

0442 004E LOCATE 20,27 

044F 004E PRIVT 'STSTEr 

043C 004E 

045C 004E ' «*ra« tbi seau table in special graphics characters 

043C 004E COLOR 9,0 

04*6 004E FOR II « 18 TO &3 

04*F 004E LOCATE 2.IZ:PRIKT •J-j 

0<8A 004E LOCATE B,II:FR1HT 

04A5 004E LOCATE 14,II:PRIHT 
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'0?6§237 



r.ngwt Jel Printer * " " • . . • pfttr 4 . 

nam Lint Code 07-W-96 

13:27:04 

Secret lint IBn Perional Couoter BASIC CovpiUr V7.00 

LOCATE 18.!I:PRIKT 'P'; 
LOCATE t2.II:PRINT 'P'; 
LOCATE 24,i;:PRUT 9 9*\ 

xeit n 

FDR II * 3 TO 23 

LOCATE lI ( ;7:PRltfT % V; 
LOCATE U,o4;PRW *V\ 

KEIT U 
RESTORE TABLE 

m ix * i to 12 

REAO RI,CX,CS 
LOCATE RI f CX:FRIWT CI; 

KEIT II 

yrint tht instructions 
COLOR 7 t O 
LOCATE 25 ,o 

PRIXT 'Use or to highlight tenu itets. Use to 
activate selection.*; 

COLOR 15,0 

LOCATE 25 l t3:PRIKT "; 
LOCATE 25,47:PRtKT «W| 

\ 

display the 6 tenu choicis 
TEKPI * KEKUI 
FOR hXKUI » 0 TO 3 

SOSUB KEKU.CFF 
KEIT KEHU1 
KEXUX « TErtPl 

highlight the currently active eenu itei 
60SU8 KEKU.OK 

SCREE* 0,0,3,3 
RETURH 

KEVU.Oli: 'highlight the iwu REHUI and display its loog descript 
iofl 

COLOR 0,7 

LOCATE KR0W««Omi) l 32-LDmiDIU$«R£HUl f 0)l/2 
PRIVT KESUKKEHUI.O); 
COLOR 7,0 

LOCATE 23 l U.5-LmiHEW$<KEHUI,l>)/2 
FRIHT KcKU$(«EKUl t li j 
RETURN 

r*.EXu\OFF:*un-highlioht itnu HEHUX and erase loog description 
COLOR 14,0 

LCCATE BRO^X IHEHUI) ,32-LEMiMLNUI (KEKUZ, 0) I /2 
PRINT KeNUS(HEKUl,0); 
COLOR 7,0 • 

LCCATE :3,A0.5-LEN(?,EKUJtr,ENUI f n)/2 



OH set 


Data 


04CO 


004E 




wit 


04F© 




V J I I 


vV^ L 




MIC 




Mir 


o:u 


004E 


05M 


0G4E 


0571 


O04E 


0S78 


004E 


057F 


OWE 


fi r .O? 


VVJO 


05AF 


. WiA 


ft'.OF 




yjjoz. 


WOO 


WwOC 


VUJ* 


U Jin 


nn r .JL 

W jo 


n r n7 


VwJO 




AA^l 
UUjO 


VjC* 




I 

VOvH 


flO r Jl 
VV JO 




VU JO 


OWE 


0054 


* 063E 


00 So 


063E 


005A 


04« 


0053 


0MB 


MSB 


0&31 


0038 


WOO 1 




0668 


0038 


06o8 


M58 


WOOD 


VVJO 


voce 


W JO 


OA£F 

vOOt 




OARS 


66 SR 


cab? 

VOOt 


COM 
vv tw 


a too 

VOOT 






0033 


0o9l 


0038 


VOUH 




OoFB 


0C33 


0704 


0038 


0738 


0058 


0757 


0038 


075B 


0038 


075B 


0O3S 


0760 


0053 


one 


C033 


07AC 


0033 


07CA 


C058 


0706 


C05B 
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10 



15 



20 



PA6E 7 
07-09-36 
13:27:0* 

IB* Personal Cotputer BftSIC Coipiler V2.00 

060A COS PRINT 5?ACEtaEM{nEHUI(X£HUX y njJ; * 

032F CO SB RrTURK 

0833 OOSfi 

0833 OOSS REH *?ASE 



Rricent «et Printer 
Kiin line Code 

Offset Bita ssorce Lint 



40 



45 



60 



55 



B6 



0 268 237 



10 



IB 



20 



Reagent Ui Printer g 
tain Ur,e toe 07-09-86 

13:27*04 

Offset jiU Source line IBR Personal Cotpoter BASK Coeoiler V2.00 

0533 W3 '«««»«♦ DATA FIEUJS USED BY THE RAIN PK0SF.M «i«m«t 
0833 0353 

0333 0053 fXKU.3Tii3NS.OWA; first entry is icnu nut, mono is in 

no description 

0838 0038 

0838 0053 DATA 'DEFIKITIOK' , 'Creiti M Modi<T p aU «ris- 

083A CW5 DATA 'FllIKS*, 'Delete, Copy, R.naie, and UUz\ Pa 

tleros* 

083C 0053 DATA •CALIBRATION, 'Calibrate and Rodify Reaoent Profil 

es* 

0B3E CC58 PATA.'FIUHB', 'Delete, Copy, Reme, and Select Rt 

0B40 0053 DATA •PRIKT', 'Print Selected Pattern «ith Seiicte 
d Recent' 

0053 DATA 'HIT TO OOSVleave Frogru and Return to DOS' 

0844 005B 

0844 0058 TABLE: 'first entry is rot., second is coluan, third is special 
graphics character 

0849 0058 

0B49 0058 DATA 2, 17,»2' 

034B 0058 DATA 2,64,*?' 

084D 0058 DATA 8,17,'C' 

084F 0038 DATA 8,64/r 

0851 0058 DATA 14,17,'C 1 

0853 WSS DATA 14,64, T 

0855 0058 DATA IB ( 17,'C - 

0B57 0058 DATA 18,64, T 

0959 0058 DATA 22,17,'C 

35 085B 0058 DATA 22,64/<' 

085D 0058 DATA 24, 17,'!' 

085F 005B DATA :4,64 t T 

08&1 0058 

0861 0058 0(9 

40 0865 0058 

0B42 C03B 



30 



4$ 



50426 Bytes Available 

47680 £yt« Free 

0 fernio? Efforts) 

0 Seme Error (s) 



W Claims 



1. A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 

a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice: 

a transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 
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thereby cause the Jetting chamber to omrt a substantially uniformiy^sized ^Jfbplet of diagnostic fluid through 
the orifice; and 

means for generating a number of electrical pulses sufficient to cause a desired quantity of the diagnostic 

fluid to be dispensed. 
5 2. The invention of Claim 1 wherein the system further comprises: 

at least one additional jetting chamber in fluid communication with an additional diagnostic fluid; 

at least one additional transducer in mechanical communication with the additional jetting chamber, 

at least one additional means for applying an electrical pulse to the additional transducer: 

means for generating respective numbers of electrical pulses sufficient to cause precise quantities of the 
io diagnostic fluids to be dispensed in a desired volumetric ratio; and 

a receptacle adapted for and positioned to receive the fluids. 

3. The invention of Claim 1 wherein the system further comprises: 

means for directing at least one of (1) the receptacle and (2) the emitted diagnostic fluid and the emitted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle in a 
is predefined dispensing order. 

4. The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid Is emitted In a manner to contact and mix 
with the serum. 

5. The invention of Claim 1 wherein the jetting chamber comprises a cylindrical tube and wherein the 
20 trans-ducer is mounted concentrically about the cylindrical tube. 

6. The Invention of Claim 1 wherein the jetting chamber is conically shaped. 

7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wall which is 
integrally formed with the transducer. 

8. The invention of Claim 1 wherein the transducer is one of (1) a piezo-electric transducer. (2) a 
25 magneto-strictive transducer: (3) an electro- strictive transducer and (4) an electro-mechanical transducer. 

9. The invention of Claim 1 wherein the jetting chamber is conically shaped; and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

10. The invention of Claim 1 wherein the orifice comprises an end face and the end face is coated with 
a hydrophobic polymer. ' 

30 11. The invention of Claim 1 wherein the transducer is cylindrically shaped and comprises a first 
electrode located on the Inner w8ll of the cylinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is eiectricaily isolated from 
the first electrode. 

12. The Invention of Claim 1 wherein the means for generating produces an electrical pulse of selected 
35 rise and fall time constants and of selected duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electrical pulse comprises means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 
diagnostic fluid along a desired path. 

40 15. A method of dispensing precise quantities of diagnostic fluids comprising the steps of: 

(a) generating an electrical pulse of predefined characteristics; 

(b) reducing the volume of a chamber containing the diagnostic fluid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an orifice 
in the chamber: and 

4S (c) repeating steps (a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 
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